From d5bf8f3b724d9d1e6cfd8486a9127fb5e11102e1 Mon Sep 17 00:00:00 2001 From: coolneng Date: Thu, 11 Mar 2021 21:28:00 +0100 Subject: [PATCH] Remove redundant casting --- src/repertoire.r | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/repertoire.r b/src/repertoire.r index 23ab344..0cb40b8 100644 --- a/src/repertoire.r +++ b/src/repertoire.r @@ -14,9 +14,9 @@ amplify_rows <- function(data, column, factor) { if (column == "sequence") { dna_string <- Biostrings::DNAStringSet(data) 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) {