use_live_data <- FALSE
if (use_live_data) {
library(aquanes.report)
library(dplyr)
siteData_raw_list <- aquanes.report::import_data_basel()
print("### Step 4: Performing temporal aggregation ##########################")
system.time(
siteData_10min_list <- aquanes.report::group_datetime(siteData_raw_list,
by = 10*60))
system.time(
siteData_hour_list <- aquanes.report::group_datetime(siteData_raw_list,
by = 60*60))
system.time(
siteData_day_list <- aquanes.report::group_datetime(siteData_raw_list,
by = "day"))
saveRDS(siteData_raw_list, file = "data/siteData_raw_list.Rds")
saveRDS(siteData_10min_list, file = "data/siteData_10min_list.Rds")
saveRDS(siteData_hour_list, file = "data/siteData_hour_list.Rds")
saveRDS(siteData_day_list, file = "data/siteData_day_list.Rds")
} else {
#siteData_raw_list <- readRDS("data/siteData_raw_list.Rds")
siteData_10min_list <- readRDS("data/siteData_10min_list.Rds")
#siteData_hour_list <- readRDS("data/siteData_hour_list.Rds")
#siteData_day_list <- readRDS("data/siteData_day_list.Rds")
}
print("### Step 5: Importing threshold information ##########################")
threshold_file <- system.file("shiny/basel/data/thresholds.csv",
package = "aquanes.report")
thresholds <- aquanes.report::get_thresholds(csv_path = threshold_file)
print("### Step 6: Specify available months for reporting ##########################")
report_months <- aquanes.report::create_monthly_selection(startDate = "2017-05-01")
#print("### Step 7: Add default calculated operational parameters ##########################")
report_calc_paras <- "NOT_IMPLEMENTED_YET"
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.