1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
|
##----------------------------------------------------------------------------##
## format_date ##
##----------------------------------------------------------------------------#
format_date <- function(x, format = "%a %b %d %T %z %Y") {
locale <- Sys.getlocale("LC_TIME")
on.exit(Sys.setlocale("LC_TIME", locale), add = TRUE)
Sys.setlocale("LC_TIME", "C")
as.POSIXct(x, format = format)
}
convert_tz <- function(x, tz) {
as.POSIXct(as.POSIXlt(x, tz = tz))
}
##----------------------------------------------------------------------------##
## fetch/return features ##
##----------------------------------------------------------------------------##
last <- function(x) {
x[[length(x)]]
}
##----------------------------------------------------------------------------##
## check data ##
##----------------------------------------------------------------------------##
has_name_ <- function(x, name) isTRUE(name %in% names(x))
has_name_children <- function(x, name, children) {
has_name_(x, name) && has_name_(x[[name]], children)
}
any_recursive <- function(x) {
if (!is.recursive(x)) {
return(FALSE)
}
any(vapply(x, is.recursive, logical(1)))
}
is.na.quiet <- function(x) {
suppressWarnings(is.na(x))
}
is_n <- function(n) {
if (is.character(n)) {
n <- suppressWarnings(as.numeric(n))
}
length(n) == 1L && is.numeric(n) && !is.na(n) && n > 0L
}
maybe_n <- function(x) {
if (is.character(x)) {
x <- suppressWarnings(as.numeric(x))
}
length(x) == 1L && is.numeric(x) && !is.na(x)
}
is_testing <- function() {
identical(Sys.getenv("TESTTHAT"), "true") && requireNamespace("testthat", quietly = TRUE)
}
is_dev_mode <- function() {
exists(".__DEVTOOLS__", .getNamespace("rtweet"))
}
is_rcmd_check <- function() {
identical(Sys.getenv("RTESTS"), "true")
}
is_developing <- function() {
is_testing() || (is_dev_mode() %||% is_rcmd_check())
}
release_bullets <- function() {
c("Run vignette/precompute.R and move images")
}
|
