From d5bf8f3b724d9d1e6cfd8486a9127fb5e11102e1 Mon Sep 17 00:00:00 2001
From: coolneng <akasroua@gmail.com>
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) {