Correct a typo which made it impossible to compute holocellulose_2 …

…with `irp_content()`.

NEWS.md

@@ -3,6 +3,7 @@
 * Performance improvement for `irp_preprocess()`.
 * Updated `irp_preprocess()`, model preprocessing configurations, and prediction functions to consider the new arguments (1) `new_x_type` from `ir::ir_bin()`, and (2) `bd_do_impute` from `ir::ir_bc()`.
 * Update the documentation: Adding explicit warnings to `irp_content_klh_hodgkins()`, `irp_content_kl_hodgkins_model`, and `irp_content_h_hodgkins_model` that the related models are not reliable for peat.
+* Correct a typo which made it impossible to compute `holocellulose_2` with `irp_content()`.
 
 # irpeat 0.1.0
 

R/irp_content.R

@@ -86,15 +86,16 @@ irp_content <- function(x, variable, ...) {
            "klason_lignin_2" = {
              x <- irp_klason_lignin_2(x = x, ...)
            },
-           "hlocellulose_2" = {
+           "holocellulose_2" = {
              x <- irp_holocellulose_2(x = x, ...)
            },
            "eac_1" = {
              x <- irp_eac_1(x = x, ...)
            },
            "edc_1" = {
              x <- irp_edc_1(x = x, ...)
-           }
+           },
+           stop("Unknown value for `variable`.")
           )
   }