library(CRDSutils)
cat("Instrument =", instrument) cat("Run Date =", runDate) pv = packageVersion("CRDSutils") cat(paste("CRDSutils Version =", pv) )
files = file_lookup(params$instrument, params$runDate) files = check_files(files)
corrected = process_data(files)
library(knitr) rd = review_data(corrected) kable(rd$qa, caption = "QA Results", row.names = FALSE) kable(rd$data, caption = "Data Summary", row.names = FALSE)
db(corrected)
excel(files, corrected)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.