Create test_indicator_native_range_year.R

#64
trias-project · Jul 7, 2020 · d7373b9 · d7373b9
1 parent 574f84b
commit d7373b9
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/tests/testthat/test_indicator_native_range_year.R b/tests/testthat/test_indicator_native_range_year.R
@@ -0,0 +1,7 @@
+library(readr)
+data_input_checklist_indicators <- read_delim("https://raw.githubusercontent.com/trias-project/indicators/master/data/interim/data_input_checklist_indicators.tsv", 
+                                              "\t", escape_double = FALSE, trim_ws = TRUE)
+
+source("./R/indicator_native_range_year.r")
+
+countYearNativerange(data_input_checklist_indicators, jaartallen = c(1950:2019), type = "native_range")