#' Internal function to dispatch files to the correct parser
#'
#' @inheritParams lr_parse_rfl8
#'
#' @inherit lr_parse_generic return
#'
#' @importFrom tools file_ext
#'
#' @keywords internal
#'
dispatch_parser <- function(filename, decimal = ".", sep = NULL,
specnum = 1L) {
switch(
tolower(file_ext(filename)),
procspec = lr_parse_procspec(filename),
abs = lr_parse_abs(filename),
roh = lr_parse_roh(filename),
trm = lr_parse_trm(filename),
trt = lr_parse_trt(filename),
ttt = lr_parse_ttt(filename),
rfl8 = lr_parse_rfl8(filename, specnum),
raw8 = lr_parse_raw8(filename, specnum),
irr8 = lr_parse_irr8(filename, specnum),
jdx = lr_parse_jdx(filename),
jaz = lr_parse_jaz(filename),
jazirrad = lr_parse_jazirrad(filename),
spc = lr_parse_spc(filename),
lr_parse_generic(filename, decimal = decimal, sep = sep)
)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.