knitr::opts_chunk$set(echo = FALSE)
# Dependencies library(AlpsNMR) requireNamespace("purrr") requireNamespace("readxl") requireNamespace("htmltools") requireNamespace("DT")
# These should be defined in the environment that calls rmarkdown::render if (!exists("nmr_dataset")) { stop("nmr_dataset should be defined before running this notebook") nmr_dataset <- NULL # to make linter happy } if (!exists("excel_file")) { stop("excel_file should be defined before running this notebook") excel_file <- NULL # to make linter happy } if (!exists("xlsx_file")) { stop("xlsx_file should be defined before running this notebook") xlsx_file <- NULL # to make linter happy } if (!exists("nmr_dataset_outfile")) { stop("nmr_dataset_outfile should be defined before running this notebook") nmr_dataset_outfile <- NULL # to make linter happy }
These are the input metadata tables that will be integrated:
excel_sheets <- readxl::excel_sheets(excel_file) excel_dfs <- purrr::map(excel_sheets, ~readxl::read_excel(path = excel_file, sheet = .))
excel_dfs %>% purrr::map(DT::datatable) %>% htmltools::tagList()
nmr_dataset <- nmr_meta_add_tidy_excel(nmr_dataset, excel_file)
nmr_meta_export(nmr_dataset, xlsx_file, groups = "external") nmr_dataset_save(nmr_dataset, nmr_dataset_outfile) nmr_dataset %>% nmr_meta_get(groups = "external") %>% DT::datatable()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.