Only keep data with type == "andel" and context == "caregiver" (#218)

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: qmongr
 Title: Lightweight Quality Assessment of Norwegian Hospitals 
-Version: 1.2.0
+Version: 1.3.0
 Authors@R: c(
     person(given = "Yohannes",
            family = "Tesfay",

NEWS.md

@@ -1,3 +1,7 @@
+# qmongr 1.3.0
+
+Only keep data with `type == "andel"` and `context == "caregiver"` ([#218](https://github.com/mong/qmongr/pull/218)).
+
 # qmongr 1.2.0
 
 Using commit [80b3ec8](https://github.com/mong/qmongjs/commit/80b3ec8) of `qmongjs`

R/data_source.R

@@ -30,13 +30,16 @@ get_data <- function() {
       dplyr::inner_join(registry, by = conf$column$registry_id)
     df <- imongr::get_table(pool, "agg_data")
 
-    # filter
-    ## include
-    include <- dplyr::select(description, .data$id, .data$include)
+    include <- dplyr::select(description, .data$id, .data$include, .data$type)
     df <- df %>%
       dplyr::left_join(include, by = c("ind_id" = "id"))
+    # Only keep include == 1, type == "andel" and context == "caregiver"
+    # qmongr is not able to show other types than "andel" or
+    # other context than "caregiver.
     df <- df %>%
-      dplyr::filter(.data$include == 1)
+      dplyr::filter(.data$include == 1) %>%
+      dplyr::filter(.data$type == "andel") %>%
+      dplyr::filter(.data$context == "caregiver")
     ## coverage
     if (conf$filter$coverage$use) {
       df <- df %>%