Publication Title

Authors
Affiliation

First Author Fullname

The Interface Group, Institute of Physiology, University of Zurich

Vartan Kurtcuoglu (last author)

The Interface Group, Institute of Physiology, University of Zurich

Published

January 30, 1

Supplemental Results

Note: Supplemental Methods are supposed to go to beamtime pages

Synchrotron µCT Data

Code
# | warning: false 

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]) 
  data_used[[i]] <- read.csv(row_filepath) %>% filter(SubjectID == inputs$SubjectID[i]) # read table and filter subject
}

# Gather list elements in a table 
data_used <- do.call(rbind,data_used) 
data_used$Subject_pubID <- inputs$Subject_pubID # Add additional input column 


data_used <- relocate(data_used, Subject_pubID, .before = 1)

#Display  table 
DT::datatable(data_used, filter = 'top')
Back to top