Shiny app updated for van Hout (2021) RCW.

Author: fragla

NEWS.Rmd

@@ -16,9 +16,12 @@ scores to be returned with more precision.
 
 - van Hout (2021) reverse crosswalk method added to eq5drcw function. This is 
 now the default and recommended option for mapping EQ-5D-3L to EQ-5D-5L. The 
-previous EuroQol (2019) mappings can be accessed by specifying the 
+previous EuroQol (2019) mappings can be accessed from within R by specifying the 
 `method = "EQ"` argument.
 
+- Shiny app updated to include van Hout (2021) reverse crosswalk value sets. 
+EuroQol (2019) value sets now removed.
+
 # eq5d 0.15.7 (2025-02-28)
 
 - United Arab Emirates EQ-5D-5L value set added.

NEWS.md

@@ -13,6 +13,9 @@
   EQ-5D-5L. The previous EuroQol (2019) mappings can be accessed by
   specifying the `method = "EQ"` argument.
 
+- Shiny app updated to include van Hout (2021) reverse crosswalk value
+  sets. EuroQol (2019) value sets now removed.
+
 # eq5d 0.15.7 (2025-02-28)
 
 - United Arab Emirates EQ-5D-5L value set added.

inst/shiny/server.R

@@ -87,7 +87,7 @@ shinyServer(function(input, output, session) {
         if(input$country %in% colnames(VAS))
           type <-c(type, "VAS")
 
-        if(input$country %in% colnames(RCW))
+        if(input$country %in% colnames(RCWVH))
           type <-c(type, "RCW")
 
         if(input$country %in% colnames(DSU3L))
@@ -216,6 +216,10 @@ shinyServer(function(input, output, session) {
     print(paste(input$version, type=input$type, country=input$country))
     vs <- valuesets(version=input$version, type=input$type, country=input$country)
 
+    if("Notes" %in% colnames(vs)) {
+      vs <- vs[which(vs$Notes != "EuroQol (2019)"),]
+    }
+
     if(nrow(vs) != 1)
       return()