write(formats2h2("Export qualitative data"), stderr())
out <- knitr::knit_child('database_export_cgidi_sub.Rmd',
                         envir = environment(),
                         quiet = TRUE)
cat(out, sep = '\n')
out <- knitr::knit_child('database_export_hcpidi_sub.Rmd',
                         envir = environment(),
                         quiet = TRUE)
cat(out, sep = '\n')

Key informant interview

No data cleaning for the lock.

fn <- timci::export_df2csvxlsx(kii_interview_data,
                               qualkii_dir,
                               "01_timci_kii_interview_data")

Online survey

No data cleaning for the lock.

fn <- timci::export_df2csvxlsx(online_survey_data,
                               qualos_dir,
                               "01_timci_online_survey_data")


Thaliehln/timci documentation built on April 8, 2024, 3:38 p.m.