R/serverhelp_buildreport.R

In sustainablefarms/farm_biodiversity_app: An App Predicting Bird Biodiversity on Farms

# function for building report
buildreport <- function(cval, cpred, rval, rpred, refisaverage = TRUE, file){
  save("cval", "cpred", "rval", 
       "rpred",
       "refisaverage",
       "file",
  file = "reportdata.RData")
        rmarkdown::render(input = report_path, 
                          params = list(loadexampledata = FALSE),
                          output_file = file,
                          envir = new.env(parent = environment())
        )
}