R/utils.R

Defines functions basename_without_extension

basename_without_extension <- function(filename) {

  a <- strsplit(filename, "/", fixed = TRUE)[[1]]
  f <- a[length(a)]
  f <- sub("([^.]+.+)\\.[[:alnum:]]+$", "\\1", f)
  return(f)

}
ottlngr/geodatenzentrum documentation built on Nov. 4, 2019, 11:14 p.m.