In r-hyperspec/hySpc.read.spc: Import Thermo Galactic's .spc File Format into a hyperSpec Object

# Clean up to ensure reproducible workspace ----------------------------------
rm(list = ls(all.names = TRUE))

# Packages -------------------------------------------------------------------
library(hySpc.read.spc)

# Functions ------------------------------------------------------------------
source("vignette-functions.R", encoding = "UTF-8")

# Settings -------------------------------------------------------------------
source("vignette-default-settings.R", encoding = "UTF-8")

# Temporary options ----------------------------------------------------------
# Change the value of this option in "vignette-default-settings.R"
show_reviewers_notes <- getOption("show_reviewers_notes", TRUE)

dir.create("resources", showWarnings = FALSE)
knitr::write_bib(
  c("hyperSpec"),
  file = "resources/intro-pkg.bib",
  prefix = "R_"
)

res <- knitr::knit_child("list-of-vignettes.md", quiet = TRUE)
cat(res, sep = "\n")

kaisermap_path <- system.file("extdata/spc.Kaisermap", package = "hySpc.read.spc")
hySpc.read.spc::read_spc(paste0(kaisermap_path,"/ebroAVII.spc"), keys_log2data = TRUE)

labram_path <- system.file("extdata/spc.LabRam", package = "hySpc.read.spc")
hySpc.read.spc::read_spc(paste0(labram_path,"/LabRam-2.spc"))

r-hyperspec/hySpc.read.spc documentation built on April 27, 2023, 1:46 p.m.