Fix closing parenthesis placement

USCbiostats · Dec 15, 2023 · 7a0830f · 7a0830f
1 parent 627a862
commit 7a0830f
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/superPartition.R b/R/superPartition.R
@@ -201,7 +201,7 @@ super_partition <- function(full_data,
       # add data to master partition mapping key
       name <- master_cluster$col_name[which(master_cluster$cluster == unique(master_cluster$cluster)[i])]
       part_master$mapping_key <- rbind(part_master$mapping_key,
-                                       c(name, name, list(1), colnames(full_data)[which(colnames(full_data == name))], i))
+                                       c(name, name, list(1), colnames(full_data)[which(colnames(full_data) == name)], i))
 
       # fix reduced_data column name
       colnames(part_master$reduced_data)[length(colnames(part_master$reduced_data))] <- name