NF_MAAgilent1ch: address #97

cyouh95 · cyouh95 · commit 9df6fe95eb1d · 2024-09-30T18:10:38.000-07:00
diff --git a/Microarray/Agilent_1-channel/Workflow_Documentation/NF_MAAgilent1ch/workflow_code/bin/Agile1CMP.qmd b/Microarray/Agilent_1-channel/Workflow_Documentation/NF_MAAgilent1ch/workflow_code/bin/Agile1CMP.qmd
@@ -725,7 +725,7 @@ reformat_names <- function(colname, group_name_mapping) {
   return(new_colname)
 }
 
-df_interim <- df_interim %>% dplyr::rename_with( reformat_names, group_name_mapping = design_data$mapping )
+df_interim <- df_interim %>% dplyr::rename_with(reformat_names, .cols = matches('\\.condition|^Genes\\.'), group_name_mapping = design_data$mapping)
 
 
 # Concatenate expression values for each sample

Original file line number	Diff line number	Diff line change
`@@ -725,7 +725,7 @@ reformat_names <- function(colname, group_name_mapping) {`
`725`	`725`	`return(new_colname)`
`726`	`726`	`}`
`727`	`727`
`728`		`-df_interim <- df_interim %>% dplyr::rename_with( reformat_names, group_name_mapping = design_data$mapping )`
	`728`	`+df_interim <- df_interim %>% dplyr::rename_with(reformat_names, .cols = matches('\\.condition\|^Genes\\.'), group_name_mapping = design_data$mapping)`
`729`	`729`
`730`	`730`
`731`	`731`	`# Concatenate expression values for each sample`