R/internal_write_pyrate.R

Defines functions .NoExtension

.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))
  }
}
azizka/CoordinateCleaner documentation built on Dec. 7, 2019, 10:23 p.m.