R/tfse.utils.r

Defines functions is_recursive is_url

is_url <- function(x) {
   is.character(x) && length(x) == 1 && grepl("^http", x)
}

is_recursive <- function(x) vapply(x, is.recursive, logical(1))
AlbanSagouis/myToolbox documentation built on Feb. 1, 2021, 1:08 p.m.