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