filesstrings

Convenient functions for moving files, deleting directories, and a variety of string operations that facilitate manipulating file names and extracting information from strings.

Installation

To install the release version (recommended) from CRAN, in R, enter

install.packages("filesstrings")

To install the development version, in R, first install devtools via install.packages("devtools"). Then enter

devtools::install_github("rorynolan/filesstrings")

Use

First let's load the library:

library(filesstrings)

#> Loading required package: stringr

Files

Move files around

I find it bizarre that base R has no file.move. To move a file, you have to unintuitively rename it. filesstrings provides file.move(files, destinations). This function has the nice feature that if you try to move files to a directory that doesn't exist, it creates the directory first and then puts the files inside. Let's create a directory and a file:

dir.create("tmp_dir")
file.create("tmp.txt")

#> [1] TRUE

Now let's put the file into the directory:

file.move("tmp.txt", "tmp_dir")

#> 1 files moved. 0 failed to move.

Delete Directories

To delete directories with base R, one has to use unlink(..., recursive = TRUE). The filesstrings package gives you dir.remove() which does the same job.

dir.remove("tmp_dir")

#> 1 directories deleted. 0 failed to delete.

Remove spaces from file names

"A space in your file name is a hole in your soul." - Jenny Bryan

RemoveFileNameSpaces(replace.with = "_") replaces them all with underscores for all files in a directory. By default, they are replaced with nothing.

file.create(c("file 1.txt", "file 2.txt"))

#> [1] TRUE TRUE

RemoveFileNameSpaces(pattern = "txt$", replace.with = "_")

#> 2 files renamed. 0 failed to rename.

list.files(pattern = "txt$")

#> [1] "file_1.txt" "file_2.txt"

file.remove(list.files(pattern = "txt$"))  # clean up

#> [1] TRUE TRUE

Strings

The nth number in a string

I often want to get the first, last or nth number in a string.

pop <- "A population of 1000 comprised of 488 dogs and 512 cats."
NthNumber(pop, 1)

#> [1] 1000

NthNumber(pop, -1)  # last number

#> [1] 512

All the numbers in a string

ExtractNumbers(pop)

#> [[1]]
#> [1] 1000  488  512

All the non-numbers in a string

ExtractNonNumerics(pop)

#> [[1]]
#> [1] "A population of " " comprised of "   " dogs and "      
#> [4] " cats."

Trim anything (not just whitespace)

stringr's str_trim just trims whitespace. What if you want to trim something else? Now you can TrimAnything().

TrimAnything("__rmarkdown_", "_")

#> [1] "rmarkdown"

Contribution

Contributions to this package are welcome. The preferred method of contribution is through a github pull request. Feel free to contact me by creating an issue. Please note that this project is released with a Contributor Code of Conduct. By participating in this project you agree to abide by its terms.