## Locate file
fastq_file <- system.file("extdata",
"example_many_sequences_raw.fastq",
package = "ggDNAvis")
## View file
for (i in 1:16) {
cat(readLines(fastq_file)[i], "\n")
}
## Read file to dataframe
read_fastq(fastq_file, calculate_length = FALSE)
read_fastq(fastq_file, calculate_length = TRUE)
Run the code above in your browser using DataLab