fritools (version 3.3.0)

split_code_file: Split a Code File Into Multiple Files

Description

I tend to find files with dozens of functions. They don't read well. So I split a code file into multiple files each containing a single function.

Usage

split_code_file(
  file,
  output_directory = tempdir(),
  encoding = getOption("encoding"),
  write_to_disk = getOption("write_to_disk")
)

Arguments

file

The code file to be split.

output_directory

Where to create the new files.

encoding

The encoding passed to source.

write_to_disk

Set the output_directory to dirname(file)? Just a shortcut.

Value

Invisibly a vector of paths to the new files.

See Also

Other file utilities: file_copy(), file_modified_last(), file_save(), find_files(), get_mtime(), get_unique_string(), is_files_current(), is_path(), paths, search_files(), touch()

Examples

# NOT RUN {
infile <- system.file("files", "test_helpers.R", package = "fritools")
# }
# NOT RUN {
   file.show(infile)
# }
# NOT RUN {
paths <- split_code_file(file = infile)
# }
# NOT RUN {
   file.show(paths[2])
# }