diff --git a/R/CI_2_Generate_warnings.R b/R/CI_2_Generate_warnings.R index 058552e..1a2dc6a 100644 --- a/R/CI_2_Generate_warnings.R +++ b/R/CI_2_Generate_warnings.R @@ -20,15 +20,15 @@ rm(list = ls()) #### Load files #### -path <- file.path(here("testthat", "warnings_file.csv")) -if(file.exists(path)) warning_file <- read.csv(path) +path <- file.path(here("testthat", "warnings_different_total_cover.csv")) +if(file.exists(path)) + warning_file <- read.csv(path) # write warning messages #### warning_messages <- c( - "unhealthy_but_wrong_status" = "There are living trees that are unhealthy but status is not AU.", - "wounded_level_but_wrong_status_or_FAD" = "There are trees with wounded level but no W in FAD." + "warnings_different_total_cover" = "Total cover estimated and accumulated cover do not match" )