knitr::opts_chunk$set(echo = TRUE, comment = "#>")
Here are some useful things which filesstrings
makes easier than base
or fs
.
First let's load the library:
library(filesstrings)
"A space in your file name is a hole in your soul." - Jenny Bryan
remove_filename_spaces(replacement = "_")
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")) remove_filename_spaces(pattern = "txt$", replacement = "_") list.files(pattern = "txt$") file.remove(list.files(pattern = "txt$")) # clean up
The microscope I use numbers files with 3 numbers by default, i.e. file001.tif
, file002.tif
and so on. This is a problem when the automatic numbering passes 1000, whereby we have file999.tif
, file1000.tif
. What's the problem with this? Well, sometimes you need alphabetical order to reflect the true order of your files. These file numbers don't satisfy this requirement:
file.names <- c("file999.tif", "file1000.tif") sort(file.names)
so file1000.tif
comes before file999.tif
in alphabetical order. The function nice_nums()
returns the names that we'd like them to have:
nice_nums(file.names)
The function nice_file_nums
applies such renaming to all the files in an entire directory. It wraps nice_nums
.
before_last_dot("spreadsheet_92.csv")
Add a file extension if needed:
give_ext("xyz", "csv")
If the file name has the correct extension already, it's left alone:
give_ext("xyz.csv", "csv")
Change a file extension:
give_ext("abc.csv", "txt") # tack the new extension onto the end give_ext("abc.csv", "txt", replace = TRUE) # replace the current extension
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.