if (FALSE) {
prep_load_workbook_like_file("meta_data_v2")
xx <- des_summary("study_data", meta_data =
prep_get_data_frame("item_level"))
util_html_table(xx$SummaryData)
util_html_table(des_summary(study_data = prep_get_data_frame("study_data"),
meta_data = prep_get_data_frame("item_level"))$SummaryData)
}
Run the code above in your browser using DataLab