You cannot select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
36 lines
1.2 KiB
R
36 lines
1.2 KiB
R
# parses from/to params for get_measurements_ and get_boxes_
|
|
parse_dateparams = function (from, to) {
|
|
from = utc_date(from)
|
|
to = utc_date(to)
|
|
if (from - to > 0) stop('"from" must be earlier than "to"')
|
|
c(date_as_isostring(from), date_as_isostring(to))
|
|
}
|
|
|
|
# NOTE: cannot handle mixed vectors of POSIXlt and POSIXct
|
|
utc_date = function (date) {
|
|
time = as.POSIXct(date)
|
|
attr(time, 'tzone') = 'UTC'
|
|
time
|
|
}
|
|
|
|
# NOTE: cannot handle mixed vectors of POSIXlt and POSIXct
|
|
date_as_isostring = function (date) format.Date(date, format = '%FT%TZ')
|
|
|
|
#' Simple factory function meant to implement dplyr functions for other classes,
|
|
#' which call an callback to attach the original class again after the fact.
|
|
#'
|
|
#' @param callback The function to call after the dplyr function
|
|
#' @noRd
|
|
dplyr_class_wrapper = function(callback) {
|
|
function(.data, ..., .dots) callback(NextMethod())
|
|
}
|
|
|
|
#' Checks for an interactive session using interactive() and a knitr process in
|
|
#' the callstack. See https://stackoverflow.com/a/33108841
|
|
#'
|
|
#' @noRd
|
|
isNonInteractive = function () {
|
|
ff <- sapply(sys.calls(), function(f) as.character(f[1]))
|
|
any(ff %in% c("knit2html", "render")) || !interactive()
|
|
}
|