flere variabler med samme navn

Rapporteket · Jan 16, 2024 · 8ed8185 · 8ed8185
1 parent 4024f61
commit 8ed8185
Showing 1 changed file with 53 additions and 1 deletion.
diff --git a/R/getKodebokData.R b/R/getKodebokData.R
@@ -42,8 +42,25 @@ getKodebokData <- function() {
                                      "q3",
                                      "q4",
                                      "q5",
+                                     "q5_burn_freeze",
+                                     "q5_pacemaker",
+                                     "q5_electroconversion",
+                                     "q5_other",
+                                     "q5_other_specify",
                                      "q6",
+                                     "q6_regular_ekg",
+                                     "q6_24_hour_ekg",
+                                     "q6_pacemaker",
+                                     "q6_pulse_watch",
+                                     "q6_other",
+                                     "q6_other_specify",
                                      "q7",
+                                     "q7_stroke",
+                                     "q7_block",
+                                     "q7_operation",
+                                     "q7_pacemaker",
+                                     "q7_other",
+                                     "q7_other_specify",
                                      "status") &
           .data$skjemanavn == "Oppfølging etter 1 år" ~
           paste0("followup1_", .data$fysisk_feltnavn),
@@ -58,8 +75,25 @@ getKodebokData <- function() {
                                      "q3",
                                      "q4",
                                      "q5",
+                                     "q5_burn_freeze",
+                                     "q5_pacemaker",
+                                     "q5_electroconversion",
+                                     "q5_other",
+                                     "q5_other_specify",
                                      "q6",
+                                     "q6_regular_ekg",
+                                     "q6_24_hour_ekg",
+                                     "q6_pacemaker",
+                                     "q6_pulse_watch",
+                                     "q6_other",
+                                     "q6_other_specify",
                                      "q7",
+                                     "q7_stroke",
+                                     "q7_block",
+                                     "q7_operation",
+                                     "q7_pacemaker",
+                                     "q7_other",
+                                     "q7_other_specify",
                                      "status") &
           .data$skjemanavn == "Oppfølging etter 5 år" ~
           paste0("followup5_", .data$fysisk_feltnavn),
@@ -74,8 +108,18 @@ getKodebokData <- function() {
                                      "q3",
                                      "q4",
                                      "q5",
+                                     "q5_burn_freeze",
+                                     "q5_pacemaker",
+                                     "q5_electroconversion",
+                                     "q5_other",
+                                     "q5_other_specify",
                                      "q6",
-                                     "q7",
+                                     "q6_regular_ekg",
+                                     "q6_24_hour_ekg",
+                                     "q6_pacemaker",
+                                     "q6_pulse_watch",
+                                     "q6_other",
+                                     "q6_other_specify",
                                      "status") &
           .data$skjemanavn == "Oppfølging etter behandling" ~
           paste0("followupbasis_", .data$fysisk_feltnavn),
@@ -100,9 +144,17 @@ getKodebokData <- function() {
                                      "komp_annen",
                                      "komp_annet_spes",
                                      "sykehus_opph",
+                                     "sykehus_elektrokonv",
+                                     "sykehus_medikakonv",
+                                     "sykehus_annet",
                                      "sykehus_annet_spes",
                                      "residiv",
                                      "residiv_annet_spes",
+                                     "ekg_vanlig",
+                                     "ekg_24h",
+                                     "pacemaker",
+                                     "pulsklokke",
+                                     "residiv_annet",
                                      "usercomment",
                                      "status") &
           .data$skjemanavn == "Hendelse" ~