search

tombishop1 / itraxBook

Book on the use of R for Itrax data processing
https://tombishop1.github.io/itraxBook/
Creative Commons Attribution 4.0 International
1 stars 0 forks source link

Add function for quickly importing everything #24

Open tombishop1 opened 10 months ago

tombishop1 commented 10 months ago 
importFun <- function(path, depth){list(metadata   = itrax_meta(paste0("data/", path, "/document.txt")),
                                        xrf        = itrax_import(paste0("data/", path, "/result.txt"), 
                                                                  depth = depth, 
                                                                  parameters = "all"),
                                        image      = itrax_image(file = paste0("data/", path, "/optical.tif"),
                                                                 meta = paste0("data/", path, "/document.txt")),
                                        radiograph = itrax_radiograph(file = paste0("data/", path, "/radiograph.tif"),
                                                                      meta = paste0("data/", path, "/document.txt"),
                                                                      trim = as.numeric(itrax_meta(paste0("data/", path, "/document.txt"))[6:7,2])))
}