diff --git a/README.Rmd b/README.Rmd
index fb67be2..04dc3cf 100644
--- a/README.Rmd
+++ b/README.Rmd
@@ -1184,7 +1184,6 @@ After running all the line in the run_ph_integrated_tables.R, below are the set
>`Healthcare is Needed Column` <- Healthcare is Needed Column
>`Healthcare is Received Column` <- Healthcare is Received Column
>`Individual Age Column` <- Individual Age Column
- >`Individual Age Column` <- Individual Age Column
>`HH UUID Health Loop column` <- Household unique identifier in health members individual sheet(usually _submission__uuid)
>`HH UUID Main Sheet column` <- Household unique identifier in main household sheet(usually _uuid)
>`Nutrition Sheet` <- Nutrition Individual Sheet
diff --git a/README.md b/README.md
index f592134..58692e4 100644
--- a/README.md
+++ b/README.md
@@ -1721,7 +1721,6 @@ Details
> `Healthcare is Needed Column` \<- Healthcare is Needed Column
> `Healthcare is Received Column` \<- Healthcare is Received Column
> `Individual Age Column` \<- Individual Age Column
-> `Individual Age Column` \<- Individual Age Column
> `HH UUID Health Loop column` \<- Household unique identifier in health
> members individual sheet(usually \_submission\_\_uuid)
> `HH UUID Main Sheet column` \<- Household unique identifier in main
diff --git a/inst/fsl_cleaning/renv.lock b/inst/fsl_cleaning/renv.lock
index 1c795a3..1cf7465 100644
--- a/inst/fsl_cleaning/renv.lock
+++ b/inst/fsl_cleaning/renv.lock
@@ -990,7 +990,7 @@
"RemoteHost": "api.github.com",
"RemoteRepo": "impactR4PHU",
"RemoteUsername": "impact-initiatives",
- "RemoteSha": "29a5ad74a7b7c1692b665c771a0b9aedb47d5768",
+ "RemoteSha": "593547dfab2be707bfdd21031d514963b1f5dda6",
"Requirements": [
"GGally",
"R",
@@ -1011,7 +1011,7 @@
"writexl",
"zscorer"
],
- "Hash": "d489b46c6f3c07f2f5c1fe4fabd58c36"
+ "Hash": "0bdd86fcdc1313767413a2fb44ad6c42"
},
"isoband": {
"Package": "isoband",
diff --git a/inst/fsl_descriptive_analysis/renv.lock b/inst/fsl_descriptive_analysis/renv.lock
index 9d057b2..888f1cc 100644
--- a/inst/fsl_descriptive_analysis/renv.lock
+++ b/inst/fsl_descriptive_analysis/renv.lock
@@ -1148,7 +1148,7 @@
"RemoteHost": "api.github.com",
"RemoteRepo": "impactR4PHU",
"RemoteUsername": "impact-initiatives",
- "RemoteSha": "29a5ad74a7b7c1692b665c771a0b9aedb47d5768",
+ "RemoteSha": "593547dfab2be707bfdd21031d514963b1f5dda6",
"Requirements": [
"GGally",
"R",
@@ -1169,7 +1169,7 @@
"writexl",
"zscorer"
],
- "Hash": "d489b46c6f3c07f2f5c1fe4fabd58c36"
+ "Hash": "0bdd86fcdc1313767413a2fb44ad6c42"
},
"isoband": {
"Package": "isoband",
diff --git a/inst/fsl_quality_report/renv.lock b/inst/fsl_quality_report/renv.lock
index 1c795a3..1cf7465 100644
--- a/inst/fsl_quality_report/renv.lock
+++ b/inst/fsl_quality_report/renv.lock
@@ -990,7 +990,7 @@
"RemoteHost": "api.github.com",
"RemoteRepo": "impactR4PHU",
"RemoteUsername": "impact-initiatives",
- "RemoteSha": "29a5ad74a7b7c1692b665c771a0b9aedb47d5768",
+ "RemoteSha": "593547dfab2be707bfdd21031d514963b1f5dda6",
"Requirements": [
"GGally",
"R",
@@ -1011,7 +1011,7 @@
"writexl",
"zscorer"
],
- "Hash": "d489b46c6f3c07f2f5c1fe4fabd58c36"
+ "Hash": "0bdd86fcdc1313767413a2fb44ad6c42"
},
"isoband": {
"Package": "isoband",
diff --git a/inst/iphra_analysis/renv.lock b/inst/iphra_analysis/renv.lock
index 5fd8865..33e9341 100644
--- a/inst/iphra_analysis/renv.lock
+++ b/inst/iphra_analysis/renv.lock
@@ -799,7 +799,7 @@
"RemoteHost": "api.github.com",
"RemoteRepo": "impactR4PHU",
"RemoteUsername": "impact-initiatives",
- "RemoteSha": "29a5ad74a7b7c1692b665c771a0b9aedb47d5768",
+ "RemoteSha": "593547dfab2be707bfdd21031d514963b1f5dda6",
"Requirements": [
"GGally",
"R",
@@ -820,7 +820,7 @@
"writexl",
"zscorer"
],
- "Hash": "d489b46c6f3c07f2f5c1fe4fabd58c36"
+ "Hash": "0bdd86fcdc1313767413a2fb44ad6c42"
},
"isoband": {
"Package": "isoband",
diff --git a/inst/iphra_cleaning/renv.lock b/inst/iphra_cleaning/renv.lock
index 62b30cb..514d0cd 100644
--- a/inst/iphra_cleaning/renv.lock
+++ b/inst/iphra_cleaning/renv.lock
@@ -875,7 +875,7 @@
"RemoteHost": "api.github.com",
"RemoteRepo": "impactR4PHU",
"RemoteUsername": "impact-initiatives",
- "RemoteSha": "29a5ad74a7b7c1692b665c771a0b9aedb47d5768",
+ "RemoteSha": "593547dfab2be707bfdd21031d514963b1f5dda6",
"Requirements": [
"GGally",
"R",
@@ -896,7 +896,7 @@
"writexl",
"zscorer"
],
- "Hash": "d489b46c6f3c07f2f5c1fe4fabd58c36"
+ "Hash": "0bdd86fcdc1313767413a2fb44ad6c42"
},
"isoband": {
"Package": "isoband",
diff --git a/inst/iycf_cleaning/renv.lock b/inst/iycf_cleaning/renv.lock
index 1c795a3..1cf7465 100644
--- a/inst/iycf_cleaning/renv.lock
+++ b/inst/iycf_cleaning/renv.lock
@@ -990,7 +990,7 @@
"RemoteHost": "api.github.com",
"RemoteRepo": "impactR4PHU",
"RemoteUsername": "impact-initiatives",
- "RemoteSha": "29a5ad74a7b7c1692b665c771a0b9aedb47d5768",
+ "RemoteSha": "593547dfab2be707bfdd21031d514963b1f5dda6",
"Requirements": [
"GGally",
"R",
@@ -1011,7 +1011,7 @@
"writexl",
"zscorer"
],
- "Hash": "d489b46c6f3c07f2f5c1fe4fabd58c36"
+ "Hash": "0bdd86fcdc1313767413a2fb44ad6c42"
},
"isoband": {
"Package": "isoband",
diff --git a/inst/iycf_descriptive_analysis/renv.lock b/inst/iycf_descriptive_analysis/renv.lock
index 53bca5b..f964a5c 100644
--- a/inst/iycf_descriptive_analysis/renv.lock
+++ b/inst/iycf_descriptive_analysis/renv.lock
@@ -1055,7 +1055,7 @@
"RemoteHost": "api.github.com",
"RemoteRepo": "impactR4PHU",
"RemoteUsername": "impact-initiatives",
- "RemoteSha": "29a5ad74a7b7c1692b665c771a0b9aedb47d5768",
+ "RemoteSha": "593547dfab2be707bfdd21031d514963b1f5dda6",
"Requirements": [
"GGally",
"R",
@@ -1076,7 +1076,7 @@
"writexl",
"zscorer"
],
- "Hash": "d489b46c6f3c07f2f5c1fe4fabd58c36"
+ "Hash": "0bdd86fcdc1313767413a2fb44ad6c42"
},
"isoband": {
"Package": "isoband",
diff --git a/inst/iycf_quality_report/renv.lock b/inst/iycf_quality_report/renv.lock
index 3307a52..543f44a 100644
--- a/inst/iycf_quality_report/renv.lock
+++ b/inst/iycf_quality_report/renv.lock
@@ -923,7 +923,7 @@
"RemoteHost": "api.github.com",
"RemoteRepo": "impactR4PHU",
"RemoteUsername": "impact-initiatives",
- "RemoteSha": "29a5ad74a7b7c1692b665c771a0b9aedb47d5768",
+ "RemoteSha": "593547dfab2be707bfdd21031d514963b1f5dda6",
"Requirements": [
"GGally",
"R",
@@ -944,7 +944,7 @@
"writexl",
"zscorer"
],
- "Hash": "d489b46c6f3c07f2f5c1fe4fabd58c36"
+ "Hash": "0bdd86fcdc1313767413a2fb44ad6c42"
},
"isoband": {
"Package": "isoband",
diff --git a/inst/mort_cleaning/renv.lock b/inst/mort_cleaning/renv.lock
index 1c795a3..1cf7465 100644
--- a/inst/mort_cleaning/renv.lock
+++ b/inst/mort_cleaning/renv.lock
@@ -990,7 +990,7 @@
"RemoteHost": "api.github.com",
"RemoteRepo": "impactR4PHU",
"RemoteUsername": "impact-initiatives",
- "RemoteSha": "29a5ad74a7b7c1692b665c771a0b9aedb47d5768",
+ "RemoteSha": "593547dfab2be707bfdd21031d514963b1f5dda6",
"Requirements": [
"GGally",
"R",
@@ -1011,7 +1011,7 @@
"writexl",
"zscorer"
],
- "Hash": "d489b46c6f3c07f2f5c1fe4fabd58c36"
+ "Hash": "0bdd86fcdc1313767413a2fb44ad6c42"
},
"isoband": {
"Package": "isoband",
diff --git a/inst/mort_descriptive_analysis/renv.lock b/inst/mort_descriptive_analysis/renv.lock
index 53bca5b..f964a5c 100644
--- a/inst/mort_descriptive_analysis/renv.lock
+++ b/inst/mort_descriptive_analysis/renv.lock
@@ -1055,7 +1055,7 @@
"RemoteHost": "api.github.com",
"RemoteRepo": "impactR4PHU",
"RemoteUsername": "impact-initiatives",
- "RemoteSha": "29a5ad74a7b7c1692b665c771a0b9aedb47d5768",
+ "RemoteSha": "593547dfab2be707bfdd21031d514963b1f5dda6",
"Requirements": [
"GGally",
"R",
@@ -1076,7 +1076,7 @@
"writexl",
"zscorer"
],
- "Hash": "d489b46c6f3c07f2f5c1fe4fabd58c36"
+ "Hash": "0bdd86fcdc1313767413a2fb44ad6c42"
},
"isoband": {
"Package": "isoband",
diff --git a/inst/mort_quality_report/renv.lock b/inst/mort_quality_report/renv.lock
index 1c795a3..1cf7465 100644
--- a/inst/mort_quality_report/renv.lock
+++ b/inst/mort_quality_report/renv.lock
@@ -990,7 +990,7 @@
"RemoteHost": "api.github.com",
"RemoteRepo": "impactR4PHU",
"RemoteUsername": "impact-initiatives",
- "RemoteSha": "29a5ad74a7b7c1692b665c771a0b9aedb47d5768",
+ "RemoteSha": "593547dfab2be707bfdd21031d514963b1f5dda6",
"Requirements": [
"GGally",
"R",
@@ -1011,7 +1011,7 @@
"writexl",
"zscorer"
],
- "Hash": "d489b46c6f3c07f2f5c1fe4fabd58c36"
+ "Hash": "0bdd86fcdc1313767413a2fb44ad6c42"
},
"isoband": {
"Package": "isoband",
diff --git a/inst/ph_integrated_tables/renv.lock b/inst/ph_integrated_tables/renv.lock
index b63b8ea..3880a26 100644
--- a/inst/ph_integrated_tables/renv.lock
+++ b/inst/ph_integrated_tables/renv.lock
@@ -1158,7 +1158,7 @@
"RemoteHost": "api.github.com",
"RemoteRepo": "impactR4PHU",
"RemoteUsername": "impact-initiatives",
- "RemoteSha": "29a5ad74a7b7c1692b665c771a0b9aedb47d5768",
+ "RemoteSha": "593547dfab2be707bfdd21031d514963b1f5dda6",
"Requirements": [
"GGally",
"R",
@@ -1179,7 +1179,7 @@
"writexl",
"zscorer"
],
- "Hash": "d489b46c6f3c07f2f5c1fe4fabd58c36"
+ "Hash": "0bdd86fcdc1313767413a2fb44ad6c42"
},
"isoband": {
"Package": "isoband",
diff --git a/inst/ph_integrated_tables/run_ph_integrated_tables.R b/inst/ph_integrated_tables/run_ph_integrated_tables.R
index 6684a50..65fb0a5 100644
--- a/inst/ph_integrated_tables/run_ph_integrated_tables.R
+++ b/inst/ph_integrated_tables/run_ph_integrated_tables.R
@@ -1521,9 +1521,19 @@ if(!file.exists("inputs/environment.Rdata")) {
} else if (length(ind_healthcare_needed) == 0) {
ind_healthcare_needed <- svDialogs::dlg_input(message= "Enter the name of the healthcare is needed","health_ind_healthcare_needed")$res
}
+
+ ## To comment out line 1527 and 1528 (In case new version humind change the levels)
+
ind_healthcare_needed_levels <- unique(unlist(data.list[[healthcare_sheet]][,ind_healthcare_needed]))
ind_healthcare_needed_levels <- ind_healthcare_needed_levels[!is.na(ind_healthcare_needed_levels)]
+ ## To uncomment out line 1532, 1533, and 1534 (In case new version humind change the levels)
+
+ # ind_healthcare_needed_yes <- tcltk::tk_select.list(unique(unlist(data.list[[healthcare_sheet]][,ind_healthcare_needed])), title = "Yes Value")
+ # ind_healthcare_needed_no <- tcltk::tk_select.list(unique(unlist(data.list[[healthcare_sheet]][,ind_healthcare_needed])), title = "No Value")
+ # ind_healthcare_needed_undefined <- tcltk::tk_select.list(unique(unlist(data.list[[healthcare_sheet]][,ind_healthcare_needed])), title = "Undefined Value", multiple =T)
+
+
## healthcare is needed
ind_healthcare_received <- names(data.list[[healthcare_sheet]])[grepl("healthcare_received",names(data.list[[healthcare_sheet]]))]
if(length(ind_healthcare_received) == 1){
@@ -1539,9 +1549,19 @@ if(!file.exists("inputs/environment.Rdata")) {
} else if (length(ind_healthcare_received) == 0) {
ind_healthcare_received <- svDialogs::dlg_input(message= "Enter the name of the healthcare is received","health_ind_healthcare_received")$res
}
+
+ ## To comment out line 1555 and 1556 (In case new version humind change the levels)
+
ind_healthcare_received_levels <- unique(unlist(data.list[[healthcare_sheet]][,ind_healthcare_received]))
ind_healthcare_received_levels <- ind_healthcare_received_levels[!is.na(ind_healthcare_received_levels)]
## ind age
+
+ ## To uncomment out line 1561, 1562, and 1563 (In case new version humind change the levels)
+
+ # ind_healthcare_received_yes <- tcltk::tk_select.list(unique(unlist(data.list[[healthcare_sheet]][,ind_healthcare_received])), title = "Yes Value")
+ # ind_healthcare_received_no <- tcltk::tk_select.list(unique(unlist(data.list[[healthcare_sheet]][,ind_healthcare_received])), title = "No Value")
+ # ind_healthcare_received_undefined <- tcltk::tk_select.list(unique(unlist(data.list[[healthcare_sheet]][,ind_healthcare_received])), title = "Undefined Value", multiple =T)
+
ind_age <- names(data.list[[healthcare_sheet]])[grepl("ind_age",names(data.list[[healthcare_sheet]]))]
if(length(ind_age) == 1){
yes_no <- svDialogs::dlg_message(paste0("Is '", ind_age, "' the correct column for age of individual?"), type = "yesno")$res
@@ -1590,6 +1610,8 @@ if(!file.exists("inputs/environment.Rdata")) {
}
}
+## To comment out line 1615 to 1627 (In case new version humind change the levels)
+
unmet_loop_df <- data.list[[healthcare_sheet]] %>%
humind::add_loop_healthcare_needed_cat(ind_healthcare_needed = ind_healthcare_needed,
ind_healthcare_needed_levels = ind_healthcare_needed_levels,
@@ -1604,6 +1626,28 @@ unmet_loop_df <- data.list[[healthcare_sheet]] %>%
unmet_healthcare = sum/n) %>%
dplyr::select(admin1,unmet_healthcare)
+## To uncomment out line 1631 to 1647 (In case new version humind change the levels)
+
+# unmet_loop_df <- data.list[[healthcare_sheet]] %>%
+# humind::add_loop_healthcare_needed_cat(ind_healthcare_needed = ind_healthcare_needed,
+# ind_healthcare_needed_yes = ind_healthcare_needed_yes,
+# ind_healthcare_needed_no = ind_healthcare_needed_no,
+# ind_healthcare_needed_undefined = ind_healthcare_needed_undefined,
+# ind_healthcare_received = ind_healthcare_received,
+# ind_healthcare_received_yes = ind_healthcare_received_yes,
+# ind_healthcare_received_no = ind_healthcare_received_no,
+# ind_healthcare_received_undefined = ind_healthcare_received_undefined,
+# ind_age = ind_age) %>%
+# srvyr::as_survey_design(weights = weight) %>%
+# dplyr::mutate(admin1 = !!rlang::sym(admin1)) %>%
+# dplyr::group_by(admin1) %>%
+# dplyr::summarise(n = n(),
+# sum = srvyr::survey_total(health_ind_healthcare_needed_yes_unmet),
+# unmet_healthcare = sum/n) %>%
+# dplyr::select(admin1,unmet_healthcare)
+
+## To comment out line 1651 to 1663 (In case new version humind change the levels)
+
unmet_loop_df_national <- data.list[[healthcare_sheet]] %>%
humind::add_loop_healthcare_needed_cat(ind_healthcare_needed = ind_healthcare_needed,
ind_healthcare_needed_levels = ind_healthcare_needed_levels,
@@ -1618,6 +1662,26 @@ unmet_loop_df_national <- data.list[[healthcare_sheet]] %>%
unmet_healthcare = sum/n) %>%
dplyr::select(admin1,unmet_healthcare)
+## To uncomment out line 1667 to 1683 (In case new version humind change the levels)
+
+# unmet_loop_df_national <- data.list[[healthcare_sheet]] %>%
+# humind::add_loop_healthcare_needed_cat(ind_healthcare_needed = ind_healthcare_needed,
+# ind_healthcare_needed_yes = ind_healthcare_needed_yes,
+# ind_healthcare_needed_no = ind_healthcare_needed_no,
+# ind_healthcare_needed_undefined = ind_healthcare_needed_undefined,
+# ind_healthcare_received = ind_healthcare_received,
+# ind_healthcare_received_yes = ind_healthcare_received_yes,
+# ind_healthcare_received_no = ind_healthcare_received_no,
+# ind_healthcare_received_undefined = ind_healthcare_received_undefined,
+# ind_age = ind_age) %>%
+# srvyr::as_survey_design(weights = weight) %>%
+# dplyr::mutate(admin1 = "national") %>%
+# dplyr::group_by(admin1) %>%
+# dplyr::summarise(n = n(),
+# sum = srvyr::survey_total(health_ind_healthcare_needed_yes_unmet),
+# unmet_healthcare = sum/n) %>%
+# dplyr::select(admin1,unmet_healthcare)
+
## Nutrition
if(!file.exists("inputs/environment.Rdata")) {