R/loader-file.R

In shunsambongi/dbiconf: DBI Configuration

#' @export
loader_resolve.dbiconf_loader_file <- function(loader) {
  assert_package("brio")
  if (is.list(loader)) {
    trim <- purrr::pluck(loader, "trim", .default = TRUE)
    loader <- list(path = purrr::chuck(loader, "path"))
  }

  out <- loader_resolve_default(loader, brio::read_file)

  if (isTRUE(trim)) {
    out <- trimws(out)
  }

  out
}