Adjusted summary method, began adding source text and url fields

R/Belgium.R

@@ -50,6 +50,11 @@ Belgium <- R6::R6Class("Belgium",
     ),
     #' @field source_data_cols existing columns within the raw data
     source_data_cols = c("cases_new", "deaths_new"),
+    #' @field source_text Plain text description of the source of the data
+    source_text = "Sciensano (Belgian institute of health)",
+    #' @field source_url Website address for explanation/introduction of the
+    #' data
+    source_url = "https://epistat.wiv-isp.be/covid/",
 
     #' @description Set up a table of region codes for clean data
     #' @importFrom tibble tibble tribble

R/Brazil.R

@@ -40,6 +40,11 @@ Brazil <- R6::R6Class("Brazil",
     ),
     #' @field source_data_cols existing columns within the raw data
     source_data_cols = c("cases_total", "deaths_total"),
+    #' @field source_text Plain text description of the source of the data
+    source_text = "Wesley Cota",
+    #' @field source_url Website address for explanation/introduction of the
+    #' data
+    source_url = "https://github.com/wcota/covid19br/blob/master/README.en.md",
 
     #' @description Set up a table of region codes for clean data
     #' @importFrom tibble tribble

R/Canada.R

@@ -37,7 +37,12 @@ Canada <- R6::R6Class("Canada",
       "cases_new", "cases_total", "deaths_new",
       "recovered_total", "tested_new"
     ),
-
+    #' @field source_text Plain text description of the source of the data
+    source_text = "Public Health Infobase, Public Health Agency of Canada",
+    #' @field source_url Website address for explanation/introduction of the
+    #' data
+    source_url = "https://open.canada.ca/data/en/dataset/261c32ab-4cfd-4f81-9dea-7b64065690dc", # nolint
+
     #' @description Set up a table of region codes for clean data
     #' @importFrom tibble tibble
     set_region_codes = function() {

R/Colombia.R

@@ -34,6 +34,11 @@ Colombia <- R6::R6Class("Colombia",
     # nolint end
     #' @field source_data_cols existing columns within the raw data
     source_data_cols = c("cases_total"),
+    #' @field source_text Plain text description of the source of the data
+    source_text = "Daniel Cárdenas",
+    #' @field source_url Website address for explanation/introduction of the
+    #' data
+    source_url = "https://github.com/danielcs88/colombia_covid-19/", 
 
     #' @description Set up a table of region codes for clean data
     #' @importFrom tibble tibble

R/Cuba.R

@@ -34,6 +34,12 @@ Cuba <- R6::R6Class("Cuba",
     # nolint end
     #' @field source_data_cols existing columns within the raw data
     source_data_cols = c("cases_new"),
+    #' @field source_text Plain text description of the source of the data
+    source_text = "COVID19 Cuba Data team",
+    #' @field source_url Website address for explanation/introduction of the
+    #' data
+    source_url = "https://covid19cubadata.github.io/#cuba", 
+
 
     #' @description Set up a table of region codes for clean data
     #' @importFrom tibble tibble

R/shared-methods.R

@@ -510,7 +510,9 @@ DataClass <- R6::R6Class(
           "national", "regional"
         ),
         data_urls = paste(unlist(self$data_urls), collapse = ", "),
-        source_data_cols = paste(unlist(self$source_data_cols), collapse = ", ")
+        source_data_cols = paste(unlist(self$source_data_cols), collapse = ", "),
+        source_text = self$source_text,
+        source_url = self$source_url
       )
       return(sum_df)
     },