R/utils.R

In HughParsonage/Census2016.spec: Ensures Census2016.DataPack Satisfy Specfication

list_data <- function(package, and_load = TRUE) {
  if (!isNamespaceLoaded(package)) {
    library(package, character.only = TRUE)
  }
  all_data <- try(utils::data(package = package))
  class(all_data) <- NULL #packageIQR is dumb
  all_datasets <- all_data$results[, "Item"]

  all_datasets <-
    setdiff(all_datasets,
            c("ISO3166", "Metadata", "NonABS_decoder", "SA16_decoder"))

  if (and_load) {
    full_list <-
      mget(all_datasets,
           envir = as.environment(paste0("package:", package)))

    return(full_list[vapply(full_list, is.data.table, FALSE)])
  } else {
    return(all_datasets)
  }
}

`%notin%` <- Negate("%in%")

gsub <- function(pattern, replacement, x, ignore.case = FALSE, perl = FALSE,
                 fixed = FALSE, useBytes = FALSE)  {
  base::gsub(pattern, replacement, x, ignore.case = ignore.case, perl = perl,
             fixed = fixed, useBytes = useBytes)
}

sub <- function(pattern, replacement, x, ignore.case = FALSE, perl = FALSE,
                 fixed = FALSE, useBytes = FALSE)  {
  base::sub(pattern, replacement, x, ignore.case = ignore.case, perl = perl,
             fixed = fixed, useBytes = useBytes)
}

grepl <- function(..., perl, fixed) base::grepl(..., perl = missing(fixed), fixed = !missing(fixed))

percent <- function(x) paste0(formatC(x, digits = 1, format = "f"), "%")