Fixed density report titles

scripts/3_quality_control.Rmd

@@ -27,7 +27,6 @@ library(minfi)
 
 knitr::opts_knit$set(root.dir = paste0(user_choices$personal_path, "/"))
 knitr::opts_chunk$set(echo = FALSE)
-phenotype_data <- readRDS(paste0(user_choices$project_name, "/processed_data/phenotype_data.rds"))
 ```
 
 ```{r load data, include=FALSE}
@@ -147,7 +146,7 @@ title_df <- title_df %>%
   dplyr::select(arrayid, personid)
 
 for (i in 1:ncol(RGSet_quality)){ 
-  title_df_current <- title_df %>% filter(arrayid == rownames(pData(RGSet_quality))[i] %>% pull(personid))
+  title_df_current <- title_df %>% filter(arrayid == rownames(pData(RGSet_quality))[i]) %>% pull(personid)
   titel <- paste0(rownames(pData(RGSet_quality))[i], " / ", title_df_current)
   densityPlot(as.matrix(Betas_quality[,i]), main = titel)
   print(i)