From 3c8306159da324201d2dd4ced7a3753bc32269a5 Mon Sep 17 00:00:00 2001
From: Marta Girona Alarcon <marta.gironaalarcon@uzh.ch>
Date: Tue, 17 Sep 2024 16:02:18 +0200
Subject: [PATCH] add another table
---
.../Publication_page.qmd | 29 +++++++++++--------
1 file changed, 17 insertions(+), 12 deletions(-)
diff --git a/webpage_contents/publications/20240901_Marta_GironaAlarcon/Publication_page.qmd b/webpage_contents/publications/20240901_Marta_GironaAlarcon/Publication_page.qmd
index 6f4afa3..98a0818 100644
--- a/webpage_contents/publications/20240901_Marta_GironaAlarcon/Publication_page.qmd
+++ b/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".
+
+```{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)
```
--
GitLab