R/internal_write_pyrate.R

In ropensci/CoordinateCleaner: Automated Cleaning of Occurrence Records from Biological Collections

.NoExtension <- function(filename) {
  if (substr(filename, nchar(filename), nchar(filename)) == ".") {
    return(substr(filename, 1, nchar(filename) - 1))
  } else {
    .NoExtension(substr(filename, 1, nchar(filename) - 1))
  }
}