ydeng/bch441-work-abc-units
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

bugfix

Browse Source
This commit is contained in:
hyginn 2017-11-01 23:29:30 -04:00
parent 6121323df3
commit 0da30ec109
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
scripts/ABC-writeMFA.R
View File

@ -1,7 +1,8 @@
# ABC-writeMFA.R # ABC-writeMFA.R
# #
# ToDo: # ToDo:
# Notes: # Notes: 2.1 bugfix: empty notes caused superfluous blank after header.
#
# #
# ============================================================================== # ==============================================================================
@ -14,7 +15,7 @@ writeMFA <- function(ali,
# Purpose: # Purpose:
# Write an MsaAAMultipleAlignment or AAStringSet object to stdout() or # Write an MsaAAMultipleAlignment or AAStringSet object to stdout() or
# a file in multi-FASTA format. # a file in multi-FASTA format.
# Version: 2.0 # Version: 2.1
# Date: 2017 10 # Date: 2017 10
# Author: Boris Steipe # Author: Boris Steipe
# #
@ -82,7 +83,12 @@ writeMFA <- function(ali,
# Process each sequence # Process each sequence
txt <- character() txt <- character()
if (note != "") { # construct header line
headers <- paste(names(sSet), note) headers <- paste(names(sSet), note)
} else {
headers <- names(sSet)
}
for (i in seq_along(sSet)) { for (i in seq_along(sSet)) {
# output FASTA header # output FASTA header