Data examples to demo the package
The included demo xlsform comes from https://github.com/pmaengineering/ppp
fct_xlsfrom_language
## With different language
fct_xlsfrom_language( xlsformpath = system.file("demo.xlsx",
package = "XlsFormUtil"))
#> [1] "English" "Tigirigna" "Amharic" "Oromiffa"
## without language
fct_xlsfrom_language( xlsformpath = system.file("KoBoXLSFormExamples.xlsx",
package = "XlsFormUtil"))
#> NULL
fct_interview_duration
## Generate the summary chart
result <- fct_interview_duration(
xlsformpath = system.file("demo.xlsx", package = "XlsFormUtil"),
label_language = NULL,
# wpm word per minute - an average 180 word per minute (per default) required
#to read loudly the text
wpm = 180,
# maxmodalities if more than 7 potential answers for a select question
#(per default)- then we assume that those modalities will not be read by the
# enumerator - but rather selected based on an open answer - and not be
# accounted for the modalities duration estimation
maxmodalities = 7 ,
# resptimeclose an average 4 seconds (per default) for respondent to reply for
# closed questions
resptimeclose = 4,
# resptimecondopen an average of 7 seconds (per default) to reply to conditional
# text question (accounting for question type of "other, please specify").
resptimecondopen = 7,
# resptimeopen an average of 10 seconds (per default) to reply to open text
# question.
resptimeopen = 10,
# avrgrepeat In case of repeat questions, an average 3 repeat (per default) is
# accounted for.
avrgrepeat = 3
)
#> ! You did not set up any language requirement to launch the functions... Are you sure your xlsform does not include any language specifification like `English (eng)` or `Español (es)` or `Français (fr)`
result[["plot"]]
type | list_name | name | label | label::Tigirigna | label::Amharic | label::Oromiffa | hint | hint::Tigirigna | hint::Amharic | hint::Oromiffa | testing | required | test_arbitrary_strings | relevant | calculation | constraint_message | read_only | appearance | constraint | repeatvar | type2 | label_duration | count | num_word | readtime | modality_duration | response_duration | repeat_duration | question_duration | question_duration_sum | order | seq | is_repeated | is_note | is_question |
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
text | NA | your_name | 001b. Enter your name below. bla bla bla bla | NA | NA | NA | Please record your name | NA | NA | NA | hello | true | 1 | NA | NA | NA | NA | NA | NA | text | 3.0000000 | NA | NA | NA | 0.0000000 | 7 | 0 | 10.0000000 | 0.1666667 | 1 | 1_text | once | no | yes | |
select_one | school_list | school_level_001 | Whoa - does this question sync? 2 | NA | NA | NA | NA | NA | NA | NA | hello | true | 27 | (\({begin_interview}='yes') and (\){available}=‘yes’) | NA | NA | NA | NA | NA | select | 2.3333333 | 12 | 19 | 6.3333333 | 0.0000000 | 4 | 0 | 6.3333333 | 0.2722222 | 2 | 2_select_one | once | no | yes | |
text | NA | name_typed | 001b. Enter your name below. | NA | NA | NA | Please record your name | NA | NA | NA | hello | true | 2 | NA | NA | NA | NA | NA | NA | text | 1.6666667 | NA | NA | NA | 0.0000000 | 7 | 0 | 8.6666667 | 0.4166667 | 3 | 3_text | once | no | yes | |
note | NA | level1 | 003a. Region | NA | NA | NA | NA | NA | NA | NA | hello | false | 5 | NA | NA | NA | NA | NA | NA | note | 0.6666667 | NA | NA | NA | 0.0000000 | 0 | 0 | 0.6666667 | 0.4277778 | 4 | 4_note | once | yes | no | |
note | NA | level2 | 003b. Zone | NA | NA | NA | NA | NA | NA | NA | hello | false | 6 | NA | NA | NA | NA | NA | NA | note | 0.6666667 | NA | NA | NA | 0.0000000 | 0 | 0 | 0.6666667 | 0.4388889 | 5 | 5_note | once | yes | no | |
note | NA | level3 | 003c. District | NA | NA | NA | NA | NA | NA | NA | hello | false | 7 | NA | NA | NA | NA | NA | NA | note | 0.6666667 | NA | NA | NA | 0.0000000 | 0 | 0 | 0.6666667 | 0.4500000 | 6 | 6_note | once | yes | no | |
note | NA | level4 | 003d. Locality name | NA | NA | NA | NA | NA | NA | NA | hello | false | 8 | NA | NA | NA | NA | NA | NA | note | 1.0000000 | NA | NA | NA | 0.0000000 | 0 | 0 | 1.0000000 | 0.4666667 | 7 | 7_note | once | yes | no | |
note | NA | EA | 004. Enumeration area | NA | NA | NA | NA | NA | NA | NA | hello | false | 9 | NA | NA | NA | NA | NA | NA | note | 1.0000000 | NA | NA | NA | 0.0000000 | 0 | 0 | 1.0000000 | 0.4833333 | 8 | 8_note | once | yes | no | |
integer | NA | structure | 005. Structure number | NA | NA | NA | Please record the structure number from the household listing form. | NA | NA | NA | hello | true | 10 | NA | NA | Invalid response. | NA | NA | NA | number | 1.0000000 | NA | NA | NA | 0.0000000 | 4 | 0 | 5.0000000 | 0.5666667 | 9 | 9_integer | once | no | yes | |
integer | NA | household | 006. Household number | NA | NA | NA | Please record the household number from the household listing form. | NA | NA | NA | hello | true | 11 | NA | NA | Invalid response. | NA | NA | NA | number | 1.0000000 | NA | NA | NA | 0.0000000 | 4 | 0 | 5.0000000 | 0.6500000 | 10 | 10_integer | once | no | yes | |
select_one | yes_no_list | hh_duplicate_check | CHECK: Have you already sent a form for this structure and household? | NA | NA | NA | DO NOT DUPLICATE ANY FORM UNLESS YOU ARE CORRECTING A MISTAKE IN AN EARLIER FORM. | NA | NA | NA | hello | true | 12 | NA | NA | NA | NA | NA | NA | select | 4.0000000 | 2 | 2 | 0.6666667 | 0.6666667 | 4 | 0 | 8.6666667 | 0.7944444 | 11 | 11_select_one | once | no | yes | |
note | NA | duplicate_warning | WARNING: Please ensure that the data processing team is aware of the duplication. | NA | NA | NA | NA | NA | NA | NA | hello | false | 13 | (\({hh_duplicate_check} = 'yes') |NA |NA |yes |NA |NA | |note | 4.3333333| NA| NA| NA| 0.0000000| 0| 0| 4.3333333| 0.8666667| 12|12_note |once |yes |no | |select_multiple |resubmit_reasons_list |resubmit_reasons |CHECK: Why are you resending this form? |NA |NA |NA |Choose all that apply. |NA |NA |NA |hello |true |14 |(\){hh_duplicate_check} = ‘yes’) | NA | NA | NA | NA | NA | select | 2.3333333 | 5 | 45 | 15.0000000 | 15.0000000 | 4 | 0 | 21.3333333 | 1.2222222 | 13 | 13_select_multiple | once | no | yes | |
note | NA | duplicate_warning_hhmember | WARNING: Each household should have ONLY ONE household roster with all household members listed on the same form. | NA | NA | NA | Please contact the central staff before sending this form. | NA | NA | NA | hello | false | 15 | selected (${resubmit_reasons}, ‘new_members’) | NA | NA | yes | NA | NA | note | 6.0000000 | NA | NA | NA | 0.0000000 | 0 | 0 | 6.0000000 | 1.3222222 | 14 | 14_note | once | yes | no | |
select_one | yes_no_list | available | 009. Is a member of the household and competent respondent present and available to be interviewed today? | NA | NA | NA | You should try 2 times to find the same respondent that did the original HH interview. After a second failed attempt you may interview a different household member. | NA | NA | NA | hello | true | 16 | NA | NA | NA | NA | NA | NA | select | 5.6666667 | 2 | 2 | 0.6666667 | 0.6666667 | 4 | 0 | 10.3333333 | 1.4944444 | 15 | 15_select_one | once | no | yes |
fct_tabulate_form
# fct_tabulate_form()
prettyform <- fct_tabulate_form( xlsformpath = system.file("demo.xlsx",
package = "XlsFormUtil") )
knitr::kable(utils::head(prettyform, 10))
Questions | Choices | Variables | Logic |
---|---|---|---|
( type: start) | start | ||
( type: end) | end | ||
( type: simserial) | simserial | ||
( type: deviceid) | deviceid | ||
( type: phonenumber) | phonenumber | ||
001b. Enter your name below. bla bla bla bla | |||
*(hint: Please record your name) | ( type: text) | your_name | |
Whoa - does this question sync? 2 | ( type: select_one) |
-[never] Never attended -[primary] Primary -[secondary] Secondary -[tertiary] Tertiary -[-99] No response -[never] Never Attended -[primary] Primary (1-8) -[secondary] Secondary (9-12) -[technical] Technical/Vocational -[higher] Higher -[-88] Don’t know -[-99] No response |school_level_001 |school_level_001 is relevant if begin_interview=yes and available=yes | |001b. Enter your name below. *(hint: Please record your name) |( type: text) |name_typed | | |003a. Region |( type: note) |level1 | | |003b. Zone |( type: note) |level2 | |
fct_create_flextable
fct_create_flextable(
xlsformpath = system.file("demo.xlsx", package = "XlsFormUtil"),
label_language = NULL )
Questions |
Choices |
Variables |
Logic |
---|---|---|---|
( type: start) |
start |
||
( type: end) |
end |
||
( type: simserial) |
simserial |
||
( type: deviceid) |
deviceid |
||
( type: phonenumber) |
phonenumber |
||
001b. Enter your name below. bla bla bla bla |
( type: text) |
your_name |
|
Whoa - does this question sync? 2 |
( type: select_one) |
school_level_001 |
school_level_001 is relevant if begin_interview=yes and available=yes |
001b. Enter your name below. |
( type: text) |
name_typed |
|
003a. Region |
( type: note) |
level1 |
|
003b. Zone |
( type: note) |
level2 |
|
003c. District |
( type: note) |
level3 |
|
003d. Locality name |
( type: note) |
level4 |
|
004. Enumeration area |
( type: note) |
EA |
|
005. Structure number |
( type: integer) |
structure |
|
006. Household number |
( type: integer) |
household |
|
CHECK: Have you already sent a form for this structure and household? |
( type: select_one) |
hh_duplicate_check |
|
WARNING: Please ensure that the data processing team is aware of the duplication. |
( type: note) |
duplicate_warning |
duplicate_warning is relevant if hh_duplicate_check = yes |
CHECK: Why are you resending this form? |
( type: select_multiple) |
resubmit_reasons |
resubmit_reasons is relevant if hh_duplicate_check = yes |
WARNING: Each household should have ONLY ONE household roster with all household members listed on the same form. |
( type: note) |
duplicate_warning_hhmember |
duplicate_warning_hhmember is relevant if selected resubmit_reasons new_members |
009. Is a member of the household and competent respondent present and available to be interviewed today? |
( type: select_one) |
available |
|
INFORMED CONSENT |
( type: note) |
consent_start |
consent_start is relevant if available = yes |
( type: begin_group) |
consent_group |
consent_group is relevant if available=yes |
|
Hello. My name is ______________________________ and I am working for the Addis Ababa University, and Federal Ministry of Health. Now I will read a statement explaining this investigation. Our team collects information on family planning in Ethiopia. We would like to ask you about the characteristics of your household, as well as activities related to family planning. information about you may be used for activities and family planning services in Ethiopia. data collected will be analyzed by researchers, but your name will be removed from all analyzes, so that your information remains anonymous. You can refuse to answer questions you will be asked many times as you want, and decide to stop the survey at any time. Do you have questions about this survey? |
( type: note) |
consent_readonly |
|
009a. May I begin the interview now? |
( type: select_one) |
begin_interview |
begin_interview is relevant if available = yes |
( type: end_group) |
|||
G. Do you recall a woman coming to your home asking questions about the members of your household, water, and sanitation? |
( type: select_one) |
confirm_interview |
confirm_interview is relevant if available=yes |
010. Interviewer's name: ${your_name} |
( type: select_one) |
witness_auto |
witness_auto is relevant if consent_obtained |
010. Interviewer's name |
( type: text) |
witness_manual |
witness_manual is relevant if consent_obtained |
011. Respondent's first name. |
( type: text) |
respondent_firstname |
respondent_firstname is relevant if begin_interview=yes and available=yes |
I. What is the highest level of school you attended? |
( type: select_one) |
school_level |
school_level is relevant if begin_interview=yes and available=yes |
Section 1 – Household Roster - Reinterview |
( type: note) |
sect_hh_roster |
sect_hh_roster is relevant if consent_obtained and available=yes |
Household member |
( type: begin_repeat) |
hh_rpt |
hh_rpt is relevant if consent_obtained |
( type: begin_group) |
nm_grp |
||
101. Name of household member / visitor |
( type: text) |
firstname_raw |
|
101a. Is this person the respondent? |
( type: select_multiple) |
respondent_match |
|
( type: end_group) |
|||
( type: begin_group) |
mb_grp |
||
102. What is ${firstname}'s relationship to the head of household? |
( type: select_one) |
relationship |
|
103. Is ${firstname} male or female? |
( type: select_one) |
gender |
|
104. How old was ${firstname} at their last birthday? |
( type: integer) |
age |
|
( type: end_group) |
|||
( type: begin_group) |
ms_grp |
||
105. What is ${firstname}'s current marital status? |
( type: select_one) |
marital_status |
marital_status is relevant if age >= 10 |
106. Does ${firstname} usually live here? |
( type: select_one) |
usually_live |
|
107. Did ${firstname} stay here last night? |
( type: select_one) |
last_night |
|
( type: end_group) |
|||
ERROR: Members on household roster must usually live here or must have stayed here last night. |
( type: note) |
not_usual_warn |
not_usual_warn is relevant if usually_live is not yes and last_night is not yes |
LCL_101. What is the religion of ${firstname}? |
( type: select_one) |
religion |
religion is relevant if relationship = head |
This person IS NOT eligible for the female respondent questionnaire. |
( type: note) |
eligibility_screen_no |
eligibility_screen_no is relevant if noteligible |
This person IS eligible for the female respondent questionnaire. |
( type: note) |
eligibility_screen_yes |
eligibility_screen_yes is relevant if eligible |
108. Are there any other usual members of your household or persons who slept in the house last night? |
( type: select_one) |
more_hh_members |
|
There are other members of the household. Move forward and select "Add Group" |
( type: note) |
more_hh_members_add |
more_hh_members_add is relevant if more_hh_members = yes |
There are no other members of the household. Move forward and select "Do Not Add" |
( type: note) |
more_hh_members_donotadd |
more_hh_members_donotadd is relevant if more_hh_members = no |
( type: end_repeat) |
|||
ERROR: There is no household head. |
( type: note) |
error_noheads |
error_noheads is relevant if heads = 0 and consent_obtained |
ERROR: There are ${heads} household heads selected: |
( type: note) |
error_extraheads |
error_extraheads is relevant if heads > 1 |
The respondent must be in the roster. Only one person in the roster can be marked as the respondent. Go back and make sure that only one person is selected as the respondent. |
( type: note) |
respondent_in_roster |
respondent_in_roster is relevant if sumrespondent_match is not 1 and consent_obtained |
109. READ THIS CHECK OUT LOUD: There are ${num_HH_members} household members who are named ${names}. Is this a complete list of the household members? |
( type: select_one) |
roster_complete |
roster_complete is relevant if consent_obtained |
Section 3 - Household Observation |
( type: note) |
sect_hh_observation_note |
sect_hh_observation_note is relevant if consent_obtained |
301. Main material of the floor |
( type: select_one) |
floor |
floor is relevant if consent_obtained |
302. Main material of the roof |
( type: select_one) |
roof |
roof is relevant if consent_obtained |
303. Main material of the exterior walls |
( type: select_one) |
walls |
walls is relevant if consent_obtained |
Thank the respondent for his/her time. |
( type: note) |
thank_you |
|
Location and Questionnaire result |
( type: note) |
sect_end |
|
096. Location |
( type: geopoint) |
gps_point |
|
098. In what language was this interview conducted? |
( type: select_one) |
survey_language |
|
099. Questionnaire Result |
( type: select_one) |
RQ_result |
fct_render_prettyprint
# fct_render_prettyprint( dir = system.file("", package = "XlsFormUtil"),
# xlsformfile = "demo.xlsx",
# label_language = NULL )
fct_xlsform_compare
## With 2 files
check <- fct_xlsform_compare(
listfile = c( system.file("demo.xlsx", package = "XlsFormUtil"),
system.file("demo_adapt1.xlsx", package = "XlsFormUtil") ),
label_language = NULL,
fileout = NULL)
#> demo_adapt1
# variablescompare,
knitr::kable(utils::head(as.data.frame(check[1]), 10))
name | type | type.ifdiff.demo_adapt1 | list_name | list_name.ifdiff.demo_adapt1 | label | label.ifdiff.demo_adapt1 | hint | hint.ifdiff.demo_adapt1 | required | required.ifdiff.demo_adapt1 | relevant | constraint.ifdiff.demo_adapt1 | constraint | relevant.ifdiff.demo_adapt1 |
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
start | start | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA |
end | end | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA |
simserial | simserial | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA |
deviceid | deviceid | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA |
phonenumber | phonenumber | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA | NA |
your_name | text | NA | NA | NA | 001b. Enter your name below. bla bla bla bla | NA | Please record your name | NA | true | NA | NA | NA | NA | NA |
school_level_001 | select_one | NA | school_list | NA | Whoa - does this question sync? 2 | NA | NA | NA | true | NA | (\({begin_interview}='yes') and (\){available}=‘yes’) | NA | NA | NA |
name_typed | text | NA | NA | NA | 001b. Enter your name below. | NA | Please record your name | NA | true | NA | NA | NA | NA | NA |
today | calculate | NA | NA | NA | NA | NA | NA | NA | false | NA | NA | NA | NA | NA |
this_country | calculate | NA | NA | NA | NA | NA | NA | NA | false | NA | NA | NA | NA | NA |
# choicescompare
knitr::kable(utils::head(as.data.frame(check[2]), 10, 10))
name | list_name | label | label.ifdiff.demo_adapt1 |
---|---|---|---|
never | school_list | Never attended | NA |
never | school_list | Never attended | Never Attended |
primary | school_list | Primary | NA |
primary | school_list | Primary | Primary (1-8) |
secondary | school_list | Secondary | NA |
secondary | school_list | Secondary | Secondary (9-12) |
tertiary | school_list | Tertiary | NA |
-99 | school_list | No response | NA |
-99 | school_list | No response | NA |
never | school_list | Never Attended | Never attended |
## With 3 files
check <- fct_xlsform_compare(
listfile = c( system.file("demo.xlsx", package = "XlsFormUtil"),
system.file("demo_adapt1.xlsx", package = "XlsFormUtil"),
system.file("demo_adapt2.xlsx", package = "XlsFormUtil") ),
label_language = NULL,
fileout = NULL)
#> demo_adapt1
#>
#> demo_adapt2