R/helpers.R

In eliocamp/cimadata: Paquete de R para datos del CIMA

.check_system <- function(package) {
  out <- suppressWarnings(system(glue::glue("which {package}"), intern = TRUE))

  if (length(out) == 0) {
    stop("Pacakge ", package," not installed.")
  }
}


.pattern_python_to_r <- function(x) {
  x <- gsub("%(", "{", x, fixed = TRUE)
  x <- gsub(")s", "}", x, fixed = TRUE)
  x
}