Supplemental Results
Note: Supplemental Methods are supposed to go to beamtime pages
Links to protocol pages
Code
# | warning: false
folders <- unique(cbind(inputs$EXPERIMENT_TYPE,inputs$FACILITY)) #unique combination of experiment type and facility
paths <- as.data.frame(file.path(apply(folders, 1, paste, collapse = .Platform$file.sep), 'protocols')) #put together the paths rowwise
colnames(paths) <- 'path'
# Add location
paths$link <- paste0('<a href=\'',paths$path,'\' target=\'_blank\'>', 'protocol folder >>','</a>')
file.path(here::here(), apply(folders, 1, paste, collapse = .Platform$file.sep), 'protocols')
[1] "C:/Users/gorka/Gitlab_crs/fdcns/webpage_contents/synchrotron_microCT/SPring-8_May_2023/protocols"
[2] "C:/Users/gorka/Gitlab_crs/fdcns/webpage_contents/synchrotron_microCT/ESRF_01_Jan_0000/protocols"
Code
DT::datatable(paths, escape = FALSE)
Synchrotron µCT Data
Code
# | warning: false
#Display table
DT::datatable(data_used, filter = 'top')
- Experiment 1: ESRF, FR019
- Experiment 2: ESRF, FR021
- Experiment 3: SPring-8, JP028
- Experiment 4: ESRF, FR063
- Experiment 5: ESRF, FR050
- Experiment 6: ESRF, FR017
- Experiment 7: CLS, CA019
Back to top