Corrected bug to 00_Check_data

code/00_CheckData.Rmd

@@ -26,7 +26,6 @@ This report checks for consistency of the dataset used for constructing sPlot 3.
 
 ***
 Key Problems:  
-Fields 'Herbs identified (y/n)' and 'Plants recorded' are mostly empty!  
 The is still a high proportion of plots without location uncertainty  
 
 ```{r results="hide", message=F, warning=F}
@@ -149,25 +148,25 @@ nNAs <- nrow(header %>% filter(is.na(`Location uncertainty (m)`)))
 
 There are still `r nNAs` plots without location uncertainty.
 
-## Previously known problems still to be fixed:  
-1) Import field 'Plants Recorded' into header (SH) - create dictionary of possible factors (FMS)  
+## Previously known problems:  
+1) Import field 'Plants Recorded' into header (SH) 
 ```{r}
-knitr::kable(table(levels(header$`Plants recorded`), exclude=NULL), 
+knitr::kable(table(header$`Plants recorded`, exclude=NULL), 
   caption="Number of records for each level in Plants recorded") %>%
     kable_styling(bootstrap_options = c("striped", "hover", "condensed", "responsive"), 
                   full_width = F, position = "center")
 ```
-The field is mostly empty!!
+OK - Values not available for EVA's datasets. Ask Milan if we can simply assume 'All vascular plants'
 
 
 2) Import field 'Herbs identified (y/n)' into header (SH)  
 ```{r}
-knitr::kable(table(levels(header$`Herbs identified (y/n)`), exclude=NULL), 
+knitr::kable(table(header$`Herbs identified (y/n)`, exclude=NULL), 
   caption="Number of records for each level in Plants recorded") %>%
     kable_styling(bootstrap_options = c("striped", "hover", "condensed", "responsive"), 
                   full_width = F, position = "center")
 ```
-The field is mostly empty!!
+OK - Values not available for EVA's datasets. According to SH, we can simply assume Y.