coolneng
/
locigenesis
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Remove redundant casting

This commit is contained in:
coolneng 2021-03-11 21:28:00 +01:00
parent 762791829a
commit d5bf8f3b72
Signed by: coolneng
GPG Key ID: 9893DA236405AF57
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/repertoire.r
View File

@ -14,9 +14,9 @@ amplify_rows <- function(data, column, factor) {
if (column == "sequence") { if (column == "sequence") {
dna_string <- Biostrings::DNAStringSet(data) dna_string <- Biostrings::DNAStringSet(data)
reverse_complement <- Biostrings::reverseComplement(dna_string) reverse_complement <- Biostrings::reverseComplement(dna_string)
return(Biostrings::DNAStringSet(rep(reverse_complement, factor))) return(rep(reverse_complement, factor))
} }
return(as.character(rep(data, factor))) return(rep(data, factor))
} }
save_data <- function(data, name) { save_data <- function(data, name) {