diff --git a/bin/2.2_motif_estimation/get_motif_seq.R b/bin/2.2_motif_estimation/get_motif_seq.R index bbcaff6..ca07eb6 100644 --- a/bin/2.2_motif_estimation/get_motif_seq.R +++ b/bin/2.2_motif_estimation/get_motif_seq.R @@ -68,7 +68,7 @@ create_seq_json <- function(input, output, num, tmp_path, cluster_id) { # Create json file ## naming - names(datalist) <- paste0(c("Motif_", "Motif_", "Motif_"),seq(1,as.numeric(num),1) , " Cluster_", cluster_id) + names(datalist) <- paste0("Motif_", seq(1,as.numeric(num),1), " Cluster_", cluster_id) ## creating json object json <- RJSONIO::toJSON(datalist, pretty = T , .withNames = T) ## writing file