diff --git a/webpage_contents/publications/20240901_Marta_GironaAlarcon/Publication_page.qmd b/webpage_contents/publications/20240901_Marta_GironaAlarcon/Publication_page.qmd
index 3acf2d261fa2e6873174eaefc8094f39d0fa43ed..6a7d1581041d02d68adda2c80f6ef21eac7ac14c 100644
--- a/webpage_contents/publications/20240901_Marta_GironaAlarcon/Publication_page.qmd
+++ b/webpage_contents/publications/20240901_Marta_GironaAlarcon/Publication_page.qmd
@@ -87,7 +87,7 @@ for (i in 1:nrow(inputs)){
   
   # Combine with scan lists for that subject
   row_filepath_scans <- file.path(here::here(), 'experiments',inputs$Data_type[i], inputs$Facility_name_YYYY_month[i], "metadata_tables",inputs$Metadata_file_scan[i]) 
-  tmp_tbl_scans <- read.csv(row_filepath_scans) %>% filter(Subject_ID == inputs$Subject_ID[i],row)
+  tmp_tbl_scans <- read.csv(row_filepath_scans) %>% filter(Subject_ID == inputs$Subject_ID[i])
   scans_used[[i]] <- full_join(x=mice_used[[i]],
                           y = tmp_tbl_scans,
                           by=join_by("Subject_ID"),keep=FALSE)