Fix 'summary_table' bug in pplr_get_data

Author: Compagnoni

.gitignore

@@ -11,3 +11,4 @@ dictionary\.html
 dictionary\.Rmd
 MS/
 browse_files
+inst/doc

DESCRIPTION

@@ -30,13 +30,14 @@ Imports:
     utils (>= 3.3.0)
 License: MIT + file LICENSE
 Encoding: UTF-8
-Suggests: 
+Suggests:
     fs (>= 1.2.2),
     knitr (>= 1.15.1),
     maps (>= 3.3.0),
     mapproj (>= 1.2.6),
     testthat(>= 2.0.0),
-    covr (>= 3.1.0)
+    covr (>= 3.1.0),
+    rmarkdown
 LazyData: true
 RoxygenNote: 6.1.0
 VignetteBuilder: knitr

R/get_data.R

@@ -81,6 +81,8 @@ pplr_get_data <- function(..., cov_unpack = FALSE){
 
   # query -----------------------------------------------------------------
 
+  summary_table <- pplr_summary_table_import()
+  
   # get id of studies
   id_vec        <- summary_table %>% 
                       subset( eval(updated_calls) ) %>% 

vignettes/introduction-to-popler.Rmd

@@ -58,7 +58,7 @@ pplr_report_dictionary()
 
 `pplr_browse()` accesses and subsets the popler metadata table directly. Calling the function returns a table that contains the metadata of all the projects in `popler`:
 
-```{r, eval = FALSE}
+```{r, eval=FALSE}
 all_studies <- pplr_browse()
 ```
 
@@ -71,7 +71,7 @@ poa_metadata
 
 Moreover, akin to `pplr_report_dictionary()`, browse can generate a report and open it as an html page. To do so, set the `report` variable to `TRUE`. Alternatively, you can pass an object created by `browse()` to `pplr_report_metadata()` to create the same report.  
 
-```{r eval = FALSE}
+```{r, eval = FALSE}
 
 pplr_browse(lterid == "SEV", report = TRUE)