#sample_file_path_three <- system.file("extdata", "sample2_fa.fasta", package = "baseq")
#tempdir <- tempdir()
#temp_file_path <- file.path(tempdir, basename(sample_file_path_three))
#file.copy(sample_file_path_three, temp_file_path, overwrite = TRUE)
#clean_DNA_file(temp_file_path, output_dir = tempdir)
# Write to working directory
# clean_DNA_file(file_path)
# Write to custom directory
# clean_DNA_file(file_path, output_dir = "/path/to/directory/")
Run the code above in your browser using DataLab