From a9e25a868a93cecca60d82cc4e483cee77da5776 Mon Sep 17 00:00:00 2001
From: Gorka Fraga Gonzalez <gorka.fragagonzalez@uzh.ch>
Date: Wed, 14 Aug 2024 13:16:29 +0200
Subject: [PATCH] Update Publication_page.qmd
---
.../20240901_Marta_GironaAlarcon/Publication_page.qmd | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/webpage_contents/publications/20240901_Marta_GironaAlarcon/Publication_page.qmd b/webpage_contents/publications/20240901_Marta_GironaAlarcon/Publication_page.qmd
index 7610ed3..eb16414 100644
--- a/webpage_contents/publications/20240901_Marta_GironaAlarcon/Publication_page.qmd
+++ b/webpage_contents/publications/20240901_Marta_GironaAlarcon/Publication_page.qmd
@@ -114,7 +114,7 @@ library(dplyr)
# Take the relevant rows from the tables specified in inputs
data_used <- list()
for (i in 1:nrow(inputs)){
- row_filepath <- file.path(here::here(), 'experiments',inputs$Data_type[i], inputs$Facility_name_mon_YYYY[i], inputs$Metadata_file[i])
+ row_filepath <- file.path(here::here(), 'experiments',inputs$Data_type[i], inputs$Facility_name_mon_YYYY[i], "metadata_tables", inputs$Metadata_file[i])
data_used[[i]] <- read.csv(row_filepath) %>% filter(SubjectID == inputs$SubjectID[i]) # read table and filter subject
}
--
GitLab