Address rhub notes. Addresses #1.

R/data.R

@@ -24,7 +24,7 @@
 #' @source The data set was derived from <https://www.nature.com/articles/s41467-018-06050-2>
 #' and published by \insertCite{Hodgkins.2018;textual}{ir} under the CC BY 4.0 license <https://creativecommons.org/licenses/by/4.0/>.
 #' \insertCite{Hodgkins.2018;textual}{ir} originally derived the data on Klason Lignin and Holocellulose content from
-#' \insertCite{LaCruz.2016;textual}{ir} <https://doi.org/10.1089/ees.2014.0402>.
+#' \insertCite{LaCruz.2016;textual}{ir}.
 #'
 #' @references
 #'   \insertAllCited{}

R/ir.R

@@ -326,7 +326,7 @@ ir_reclass_ir <- function(x) {
 
   if(! "spectra" %in% colnames(x)) { # spectra column not present
     structure(x, class = setdiff(class(x), "ir"))
-  } else if(class(try(ir_check_spectra(x$spectra), silent = TRUE)) == "try-error") { # spectra column present, but wrong format
+  } else if(inherits(try(ir_check_spectra(x$spectra), silent = TRUE), "try-error")) { # spectra column present, but wrong format
     structure(x, class = setdiff(class(x), "ir"))
   } else { # spectra column with correct format present
     structure(x, class = c("ir", setdiff(class(x), "ir")))

R/ir_bc.R

@@ -29,24 +29,30 @@
 #' `return_bl = TRUE`, the baselines instead of the spectra in column `spectra`.
 #'
 #' @examples
+#' library(dplyr)
+#'
 #' # rubberband baseline correction
 #' x1 <-
 #'    ir::ir_sample_data %>%
+#'    dplyr::slice(1:10) %>%
 #'    ir::ir_bc(method = "rubberband")
 #'
 #' # polynomial baseline correction
 #' x2 <-
 #'    ir::ir_sample_data %>%
+#'    dplyr::slice(1:10) %>%
 #'    ir::ir_bc(method = "polynomial", degree = 2)
 #'
 #' # Savitzky-Golay baseline correction
 #' x3 <-
 #'    ir::ir_sample_data %>%
+#'    dplyr::slice(1:10) %>%
 #'    ir::ir_bc(method = "sg", p = 3, n = 199, ts = 1, m = 0)
 #'
 #' # return the baseline instead of the baseline corrected spectra
 #' x1_bl <-
 #'    ir::ir_sample_data %>%
+#'    dplyr::slice(1:10) %>%
 #'    ir::ir_bc(method = "rubberband", return_bl = TRUE)
 #'
 #' @export