Nothing
skip_if_no_key <- function(sys = "WMATA_KEY") {
key <- wmata_key()
if (!nzchar(key)) {
testthat::skip("No API key found")
} else {
invisible(key)
}
}
api_time <- function(x) {
out <- as.POSIXct(x, format = "%Y-%m-%dT%H:%M:%S", tz = "EST")
attr(out, "tzone") <- "UTC"
out
}
merge2 <- function (x, y, ...) {
out <- merge(x, y, sort = FALSE, ...)[, union(names(x), names(y))]
tibble::as_tibble(out)
}
rows_bind <- function(list, list_names, col_name = "rowname", ...) {
if (is.null(names(list)) && !missing(list_names)) {
names(list) <- list_names
}
out <- do.call(what = "rbind", args = list, ...)
if (!is.null(names(list))) {
out[[col_name]] <- gsub("\\.\\d+$", "", rownames(out))
rownames(out) <- NULL
out[, c(ncol(out), seq(ncol(out) - 1))]
} else {
out
}
}
#' Check if data has length and rows
#'
#' @param x A data frame or list to check
#' @examples
#' no_data_now(data.frame())
#' no_data_now(data.frame(a = 1))
#' @export
no_data_now <- function(x) {
length(x) == 0 || (is.data.frame(x) & nrow(x) == 0)
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.