R/name.R

In poissonconsulting/flobr: Convert Files to and from Binary Objects (BLOBs)

name <- function(name, path) {
  path <- basename(path)

  if (identical(name, "")) {
    return(path)
  }

  if (grepl("[.]", name)) {
    err("Name '", name, "' must not include an extension.",
      class = "flobr_error"
    )
  }

  p0(name, ".", tools::file_ext(path))
}