R/utils.R

In cynkra/fledge: Smoother Change Tracking and Versioning for R Packages

map_dfr <- function(list, ...) {
  df_list <- purrr::map(list, ...)
  purrr::list_rbind(df_list)
}

is_any_named <- function(x) {
  any(nzchar(names(x)))
}

is_non_empty_string <- function(x) {
  !is.na(x) && nzchar(x)
}

fledge_is_interactive <- function(x) {
  if (nzchar(Sys.getenv("FLEDGE_INTERACTIVE"))) {
    return(TRUE)
  }

  interactive()
}