splitext(character(0))
splitext("")
splitext("file.ext")
splitext(c("file.tar.gz", "file.tar.bz2", "file.tar.xz"), compression = FALSE)
splitext(c("file.tar.gz", "file.tar.bz2", "file.tar.xz"), compression = TRUE)
x <- "this.path_1.0.0.tar.gz"
ext(x) <- ".png"
x
x <- "this.path_1.0.0.tar.gz"
ext(x, compression = TRUE) <- ".png"
x
Run the code above in your browser using DataLab