Legge til inkloppf i i inklstat

Pluss endre tekst
Rapporteket · Jun 21, 2023 · b01e66e · b01e66e
1 parent 77f43f8
commit b01e66e
Showing 1 changed file with 8 additions and 6 deletions.
diff --git a/inst/LokalDekningsgradrapportReservasjon.Rmd b/inst/LokalDekningsgradrapportReservasjon.Rmd
@@ -72,8 +72,11 @@ if (dim(dat)[1] < 1) {
   message <- "I den valgte tidsperioden er det ikke nok data til å angi dekningsgrad."
 } else {
   antInk <- sum(dat$InklKritOppf == 1, na.rm = TRUE)
-  antReserv <- sum(dat$Reservasjonsstatus == 1, na.rm = TRUE)
-  inklStat <- sum(dat$Reservasjonsstatus == 0, na.rm = TRUE)
+  antReserv <- sum((dat$Reservasjonsstatus == 1 & dat$InklKritOppf == 1), 
+                   na.rm = TRUE)
+  antReservTOT <- sum(dat$Reservasjonsstatus == 1, na.rm = TRUE)
+  inklStat <- sum((dat$Reservasjonsstatus == 0 & dat$InklKritOppf == 1), 
+                  na.rm = TRUE)
   
   if (antInk < 1) {
     message <- "I den valgte tidsperioden er det ikke nok data til å angi dekningsgrad."
@@ -89,7 +92,7 @@ if (dim(dat)[1] < 1) {
     }
     
     if (nPatient == 1) {
-      patientTxt <- " for én pasient"
+      patientTxt <- " for én pasient."
     }
     message <- paste0("Dekningsgraden for ", params$hospitalName,
                       " i den valgte tidsperioden er __",
@@ -98,9 +101,8 @@ if (dim(dat)[1] < 1) {
     
     message <- paste0(message, "\n\n## Tallgrunnlag og utvalg  \n",
                       " I utvalget er det ", nEvent, " forløp", patientTxt,
-                      " Totalt ", antReserv,
-                      " forløp er registrert med reservasjon og totalt ", nNoIncl,
-                      " forløp oppfyller ikke inklusjonskriteriene.")
+                      " For forløp der inklusjonskriteriene er oppfylt er ", antReserv,
+                      " registrert med reservasjon, mens det totalt er ", antReservTOT, " forløp med reservasjon. Det er totalt ", nNoIncl, " forløp som oppfyller ikke inklusjonskriteriene.")
   }
   
 }