add another table

webpage_contents/publications/20240901_Marta_GironaAlarcon/Publication_page.qmd

@@ -31,6 +31,21 @@ ADD ZENODO SCREENSHOT
 In a previous beamtime (ESRF, 2020, December), *ex vivo* imaging was performed. The goal of the pilot experiments was to chose a contrast agent for the presented *in vivo* experiments. 
 The list of used contrast agents is available under the Zenodo download entry "tables".
 ![](images/post_mortem_overview.png)
+
+```{r}
+# SET options for table rendering in this page
+options(DT.options =  list(fixedHeader = TRUE, 
+                      scrollX = TRUE,
+                      scrollY = "800px",
+                      paging = FALSE,
+                      scrollCollapse = TRUE,  
+                      autoWidth = TRUE))
+```
+```{r}
+tbl <- read.csv(file = 'exVivo_Contrast_agent_per_mouse_list.csv')
+DT::datatable(tbl, extensions = c('FixedHeader'), filter = 'top', rownames = FALSE)
+```
+
 *Fig.  2. Ex vivo coronal slices of three different mice injected with (left) Gadolinium-based, (middle) Barium-based and (right) Gold-based contrast agent*
 
 We considered the Barium-based contrast agent (CA) to be the most promissing one and therefore decided to employ it for the *in vivo* experiments. 
@@ -70,21 +85,11 @@ Additionally, we assambled a customized mouse stage for two surgical procedures:
 
 ### 
 
-```{r}
-# SET options for table rendering in this page
-options(DT.options =  list(fixedHeader = TRUE, 
-                      scrollX = TRUE,
-                      scrollY = "800px",
-                      paging = FALSE,
-                      scrollCollapse = TRUE,  
-                      autoWidth = TRUE))
-```
-
 Equipment and consumables are provided as a table:
 
 ```{r}
-equipment_tbl <- read.csv(file = 'Equipment_table.csv')
-DT::datatable(equipment_tbl, extensions = c('FixedHeader'), filter = 'top', rownames = FALSE)
+tbl <- read.csv(file = 'Equipment_table.csv')
+DT::datatable(tbl, extensions = c('FixedHeader'), filter = 'top', rownames = FALSE)
 ```