Save enhancer homologs to file in phylip format.
output of alignment.
output folder.
Transcription factor binding consensus.
The format of output files. Available formats are 'txt' and 'html'. Default is 'txt'.
The I/O status.
al <- readRDS(system.file("extdata", "al.rds",
package="enhancerHomologSearch"))
tmpfolder <- tempdir()
library(MotifDb)
#> See system.file("LICENSE", package="MotifDb") for use restrictions.
motifs <- query(MotifDb, "JASPAR_CORE")
consensus <- sapply(motifs, consensusString)
consensus <- DNAStringSet(gsub("\\?", "N", consensus))
saveAlignments(al, output_folder=tmpfolder, motifConsensus=consensus)