GetFastqFiles<-function(input.fastq.file.dir) {
print(input.fastq.file.dir)
re<-cbind(paste0(input.fastq.file.dir,dir(input.fastq.file.dir,pattern = "_1.fastq")),
paste0(input.fastq.file.dir,dir(input.fastq.file.dir,pattern = "_2.fastq")))
return(re)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.