Created
December 8, 2016 21:03
-
-
Save ctesta01/2f06e8557fa9848617378ad3b36c6900 to your computer and use it in GitHub Desktop.
splitting grad admissions text appendices
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
library(QualtricsTools) | |
source("Q:/Student Work/Emma's Student Work/Report Generation/Comment Coding/comment-coding.R") | |
get_setup( | |
qsf_path = "Q:/Student Work/Emma's Student Work/Report Generation/Comment Coding/examples/grad admissions/grad_admissions.qsf", | |
csv_path = "Q:/Student Work/Emma's Student Work/Report Generation/Comment Coding/examples/grad admissions/grad_admissions.csv", | |
headerrows=3) | |
# create merged response column | |
responses <- create_merged_response_column(c("Enroll_NonEnroll", "School", "Program"), "enroll-nonenroll-school-program", blocks, responses) | |
# load fletcher coded comments | |
grad_comments_directory <- "Q:/Student Work/Emma's Student Work/Report Generation/Comment Coding/examples/grad admissions/coded comments/" | |
coded_sheets <- directory_get_coded_comment_sheets(grad_comments_directory) | |
# split and table coded comments according to the "cont-exit-prog" column in the responses | |
split_comment_tables <- format_and_split_comment_sheets(coded_sheets, responses, "enroll-nonenroll-school-program") | |
# split the survey | |
split_blocks <- split_respondents("enroll-nonenroll-school-program", responses, survey, blocks, questions, headerrows=3) | |
# insert the split comments into the survey | |
split_blocks <- insert_split_survey_comments(split_blocks, split_comment_tables, "enroll-nonenroll-school-program", original_first_rows) | |
### Writing Output Files | |
# specify output directory | |
output_dir <- "Q:/Student Work/Emma's Student Work/Report Generation/Comment Coding/examples/grad admissions/text appendices/" | |
# save flow for text_appendices_table-ing | |
flow = flow_from_survey(survey) | |
# Record the names for each split survey | |
# To figure out the names that you should use (in general), I suggest looking at the output | |
# > sapply(split_blocks, function(x) x$split_group) | |
# [1] "Enrolling + Graduate School of Arts & Sciences + Art and Art History" | |
# [2] "Enrolling + Graduate School of Arts & Sciences + Biology" | |
# [3] "Enrolling + Graduate School of Arts & Sciences + Chemistry" | |
# [4] "Enrolling + Graduate School of Arts & Sciences + Chemistry/Biotechnology" | |
# [5] "Enrolling + Graduate School of Arts & Sciences + Chemistry: Chemical Physics" | |
# [6] "Enrolling + Graduate School of Arts & Sciences + Child Study and Human Development" | |
# [7] "Enrolling + Graduate School of Arts & Sciences + Classical Archaeology" | |
# [8] "Enrolling + Graduate School of Arts & Sciences + Classics" | |
# [9] "Enrolling + Graduate School of Arts & Sciences + Classics with Teaching Licensure" | |
# [10] "Enrolling + Graduate School of Arts & Sciences + Drama" | |
# [11] "Enrolling + Graduate School of Arts & Sciences + Economics" | |
# [12] "Enrolling + Graduate School of Arts & Sciences + Education" | |
# [13] "Enrolling + Graduate School of Arts & Sciences + English" | |
# [14] "Enrolling + Graduate School of Arts & Sciences + German" | |
# [15] "Enrolling + Graduate School of Arts & Sciences + History" | |
# [16] "Enrolling + Graduate School of Arts & Sciences + History and Museum Studies" | |
# [17] "Enrolling + Graduate School of Arts & Sciences + Mathematics" | |
# [18] "Enrolling + Graduate School of Arts & Sciences + Museum Education" | |
# [19] "Enrolling + Graduate School of Arts & Sciences + Music" | |
# [20] "Enrolling + Graduate School of Arts & Sciences + Occupational Therapy" | |
# [21] "Enrolling + Graduate School of Arts & Sciences + Philosophy" | |
# [22] "Enrolling + Graduate School of Arts & Sciences + Physics" | |
# [23] "Enrolling + Graduate School of Arts & Sciences + Physics: Astrophysics" | |
# [24] "Enrolling + Graduate School of Arts & Sciences + Psychology" | |
# [25] "Enrolling + Graduate School of Arts & Sciences + Public Policy" | |
# [26] "Enrolling + Graduate School of Arts & Sciences + School Psychology" | |
# [27] "Enrolling + Graduate School of Arts & Sciences + UEP/Boston College Law Dual Degree" | |
# [28] "Enrolling + Graduate School of Arts & Sciences + UEP/Economics Joint Degree" | |
# [29] "Enrolling + Graduate School of Arts & Sciences + UEP/Fletcher Dual Degree" | |
# [30] "Enrolling + Graduate School of Arts & Sciences + UEP/Nutrition Dual Degree" | |
# [31] "Enrolling + Graduate School of Arts & Sciences + Urban and Environmental Policy & Planning" | |
# [32] "Enrolling + School of Engineering + Bioengineering" | |
# [33] "Enrolling + School of Engineering + Biomedical Engineering" | |
# [34] "Enrolling + School of Engineering + Biotechnology Engineering" | |
# [35] "Enrolling + School of Engineering + Chemical Engineering" | |
# [36] "Enrolling + School of Engineering + Civil and Environmental Engineering" | |
# [37] "Enrolling + School of Engineering + Computer Science" | |
# [38] "Enrolling + School of Engineering + Computer Science: Cognitive Science" | |
# [39] "Enrolling + School of Engineering + Electrical Engineering" | |
# [40] "Enrolling + School of Engineering + Engineering Management" | |
# [41] "Enrolling + School of Engineering + Human Factors" | |
# [42] "Enrolling + School of Engineering + Innovation and Management" | |
# [43] "Enrolling + School of Engineering + Mechanical Engineering" | |
# [44] "Non-Enrolling + Graduate School of Arts & Sciences + Art and Art History" | |
# [45] "Non-Enrolling + Graduate School of Arts & Sciences + Art History and Museum Studies" | |
# [46] "Non-Enrolling + Graduate School of Arts & Sciences + Biology" | |
# [47] "Non-Enrolling + Graduate School of Arts & Sciences + Chemistry" | |
# [48] "Non-Enrolling + Graduate School of Arts & Sciences + Chemistry/Biotechnology" | |
# [49] "Non-Enrolling + Graduate School of Arts & Sciences + Child Study and Human Development" | |
# [50] "Non-Enrolling + Graduate School of Arts & Sciences + Classical Archaeology" | |
# [51] "Non-Enrolling + Graduate School of Arts & Sciences + Classics" | |
# [52] "Non-Enrolling + Graduate School of Arts & Sciences + Classics with Teaching Licensure" | |
# [53] "Non-Enrolling + Graduate School of Arts & Sciences + Drama" | |
# [54] "Non-Enrolling + Graduate School of Arts & Sciences + Economics" | |
# [55] "Non-Enrolling + Graduate School of Arts & Sciences + Education" | |
# [56] "Non-Enrolling + Graduate School of Arts & Sciences + English" | |
# [57] "Non-Enrolling + Graduate School of Arts & Sciences + History" | |
# [58] "Non-Enrolling + Graduate School of Arts & Sciences + History and Museum Studies" | |
# [59] "Non-Enrolling + Graduate School of Arts & Sciences + Mathematics" | |
# [60] "Non-Enrolling + Graduate School of Arts & Sciences + Museum Education" | |
# [61] "Non-Enrolling + Graduate School of Arts & Sciences + Music" | |
# [62] "Non-Enrolling + Graduate School of Arts & Sciences + Occupational Therapy" | |
# [63] "Non-Enrolling + Graduate School of Arts & Sciences + Philosophy" | |
# [64] "Non-Enrolling + Graduate School of Arts & Sciences + Physics" | |
# [65] "Non-Enrolling + Graduate School of Arts & Sciences + Physics: Astrophysics" | |
# [66] "Non-Enrolling + Graduate School of Arts & Sciences + Physics: Chemical Physics" | |
# [67] "Non-Enrolling + Graduate School of Arts & Sciences + Physics: Physics Education" | |
# [68] "Non-Enrolling + Graduate School of Arts & Sciences + Psychology" | |
# [69] "Non-Enrolling + Graduate School of Arts & Sciences + School Psychology" | |
# [70] "Non-Enrolling + Graduate School of Arts & Sciences + UEP/Economics Joint Degree" | |
# [71] "Non-Enrolling + Graduate School of Arts & Sciences + UEP/Nutrition Dual Degree" | |
# [72] "Non-Enrolling + Graduate School of Arts & Sciences + UEP/Public Health Dual Degree" | |
# [73] "Non-Enrolling + Graduate School of Arts & Sciences + Urban and Environmental Policy & Planning" | |
# [74] "Non-Enrolling + School of Engineering + Bioengineering" | |
# [75] "Non-Enrolling + School of Engineering + Biomedical Engineering" | |
# [76] "Non-Enrolling + School of Engineering + Biotechnology Engineering" | |
# [77] "Non-Enrolling + School of Engineering + Chemical Engineering" | |
# [78] "Non-Enrolling + School of Engineering + Civil and Environmental Engineering" | |
# [79] "Non-Enrolling + School of Engineering + Computer Science" | |
# [80] "Non-Enrolling + School of Engineering + Computer Science: Cognitive Science" | |
# [81] "Non-Enrolling + School of Engineering + Electrical Engineering" | |
# [82] "Non-Enrolling + School of Engineering + Human Factors" | |
# [83] "Non-Enrolling + School of Engineering + Innovation and Management" | |
# [84] "Non-Enrolling + School of Engineering + Mechanical Engineering" | |
split_names <- list() | |
split_names[[1]] <- "Enrolling + Graduate School of Arts & Sciences + Art and Art History.docx" | |
split_names[[2]] <- "Enrolling + Graduate School of Arts & Sciences + Biology.docx" | |
split_names[[3]] <- "Enrolling + Graduate School of Arts & Sciences + Chemistry.docx" | |
split_names[[4]] <- "Enrolling + Graduate School of Arts & Sciences + Chemistry/Biotechnology.docx" | |
split_names[[5]] <- "Enrolling + Graduate School of Arts & Sciences + Chemistry: Chemical Physics.docx" | |
split_names[[6]] <- "Enrolling + Graduate School of Arts & Sciences + Child Study and Human Development.docx" | |
split_names[[7]] <- "Enrolling + Graduate School of Arts & Sciences + Classical Archaeology.docx" | |
split_names[[8]] <- "Enrolling + Graduate School of Arts & Sciences + Classics.docx" | |
split_names[[9]] <- "Enrolling + Graduate School of Arts & Sciences + Classics with Teaching Licensure.docx" | |
split_names[[10]] <- "Enrolling + Graduate School of Arts & Sciences + Drama.docx" | |
split_names[[11]] <- "Enrolling + Graduate School of Arts & Sciences + Economics.docx" | |
split_names[[12]] <- "Enrolling + Graduate School of Arts & Sciences + Education.docx" | |
split_names[[13]] <- "Enrolling + Graduate School of Arts & Sciences + English.docx" | |
split_names[[14]] <- "Enrolling + Graduate School of Arts & Sciences + German.docx" | |
split_names[[15]] <- "Enrolling + Graduate School of Arts & Sciences + History.docx" | |
split_names[[16]] <- "Enrolling + Graduate School of Arts & Sciences + History and Museum Studies.docx" | |
split_names[[17]] <- "Enrolling + Graduate School of Arts & Sciences + Mathematics.docx" | |
split_names[[18]] <- "Enrolling + Graduate School of Arts & Sciences + Museum Education.docx" | |
split_names[[19]] <- "Enrolling + Graduate School of Arts & Sciences + Music.docx" | |
split_names[[20]] <- "Enrolling + Graduate School of Arts & Sciences + Occupational Therapy.docx" | |
split_names[[21]] <- "Enrolling + Graduate School of Arts & Sciences + Philosophy.docx" | |
split_names[[22]] <- "Enrolling + Graduate School of Arts & Sciences + Physics.docx" | |
split_names[[23]] <- "Enrolling + Graduate School of Arts & Sciences + Physics: Astrophysics.docx" | |
split_names[[24]] <- "Enrolling + Graduate School of Arts & Sciences + Psychology.docx" | |
split_names[[25]] <- "Enrolling + Graduate School of Arts & Sciences + Public Policy.docx" | |
split_names[[26]] <- "Enrolling + Graduate School of Arts & Sciences + School Psychology.docx" | |
split_names[[27]] <- "Enrolling + Graduate School of Arts & Sciences + UEP/Boston College Law Dual Degree.docx" | |
split_names[[28]] <- "Enrolling + Graduate School of Arts & Sciences + UEP/Economics Joint Degree.docx" | |
split_names[[29]] <- "Enrolling + Graduate School of Arts & Sciences + UEP/Fletcher Dual Degree.docx" | |
split_names[[30]] <- "Enrolling + Graduate School of Arts & Sciences + UEP/Nutrition Dual Degree.docx" | |
split_names[[31]] <- "Enrolling + Graduate School of Arts & Sciences + Urban and Environmental Policy & Planning.docx" | |
split_names[[32]] <- "Enrolling + School of Engineering + Bioengineering.docx" | |
split_names[[33]] <- "Enrolling + School of Engineering + Biomedical Engineering.docx" | |
split_names[[34]] <- "Enrolling + School of Engineering + Biotechnology Engineering.docx" | |
split_names[[35]] <- "Enrolling + School of Engineering + Chemical Engineering.docx" | |
split_names[[36]] <- "Enrolling + School of Engineering + Civil and Environmental Engineering.docx" | |
split_names[[37]] <- "Enrolling + School of Engineering + Computer Science.docx" | |
split_names[[38]] <- "Enrolling + School of Engineering + Computer Science: Cognitive Science.docx" | |
split_names[[39]] <- "Enrolling + School of Engineering + Electrical Engineering.docx" | |
split_names[[40]] <- "Enrolling + School of Engineering + Engineering Management.docx" | |
split_names[[41]] <- "Enrolling + School of Engineering + Human Factors.docx" | |
split_names[[42]] <- "Enrolling + School of Engineering + Innovation and Management.docx" | |
split_names[[43]] <- "Enrolling + School of Engineering + Mechanical Engineering.docx" | |
split_names[[44]] <- "Non-Enrolling + Graduate School of Arts & Sciences + Art and Art History.docx" | |
split_names[[45]] <- "Non-Enrolling + Graduate School of Arts & Sciences + Art History and Museum Studies.docx" | |
split_names[[46]] <- "Non-Enrolling + Graduate School of Arts & Sciences + Biology.docx" | |
split_names[[47]] <- "Non-Enrolling + Graduate School of Arts & Sciences + Chemistry.docx" | |
split_names[[48]] <- "Non-Enrolling + Graduate School of Arts & Sciences + Chemistry/Biotechnology.docx" | |
split_names[[49]] <- "Non-Enrolling + Graduate School of Arts & Sciences + Child Study and Human Development.docx" | |
split_names[[50]] <- "Non-Enrolling + Graduate School of Arts & Sciences + Classical Archaeology.docx" | |
split_names[[51]] <- "Non-Enrolling + Graduate School of Arts & Sciences + Classics.docx" | |
split_names[[52]] <- "Non-Enrolling + Graduate School of Arts & Sciences + Classics with Teaching Licensure.docx" | |
split_names[[53]] <- "Non-Enrolling + Graduate School of Arts & Sciences + Drama.docx" | |
split_names[[54]] <- "Non-Enrolling + Graduate School of Arts & Sciences + Economics.docx" | |
split_names[[55]] <- "Non-Enrolling + Graduate School of Arts & Sciences + Education.docx" | |
split_names[[56]] <- "Non-Enrolling + Graduate School of Arts & Sciences + English.docx" | |
split_names[[57]] <- "Non-Enrolling + Graduate School of Arts & Sciences + History.docx" | |
split_names[[58]] <- "Non-Enrolling + Graduate School of Arts & Sciences + History and Museum Studies.docx" | |
split_names[[59]] <- "Non-Enrolling + Graduate School of Arts & Sciences + Mathematics.docx" | |
split_names[[60]] <- "Non-Enrolling + Graduate School of Arts & Sciences + Museum Education.docx" | |
split_names[[61]] <- "Non-Enrolling + Graduate School of Arts & Sciences + Music.docx" | |
split_names[[62]] <- "Non-Enrolling + Graduate School of Arts & Sciences + Occupational Therapy.docx" | |
split_names[[63]] <- "Non-Enrolling + Graduate School of Arts & Sciences + Philosophy.docx" | |
split_names[[64]] <- "Non-Enrolling + Graduate School of Arts & Sciences + Physics.docx" | |
split_names[[65]] <- "Non-Enrolling + Graduate School of Arts & Sciences + Physics: Astrophysics.docx" | |
split_names[[66]] <- "Non-Enrolling + Graduate School of Arts & Sciences + Physics: Chemical Physics.docx" | |
split_names[[67]] <- "Non-Enrolling + Graduate School of Arts & Sciences + Physics: Physics Education.docx" | |
split_names[[68]] <- "Non-Enrolling + Graduate School of Arts & Sciences + Psychology.docx" | |
split_names[[69]] <- "Non-Enrolling + Graduate School of Arts & Sciences + School Psychology.docx" | |
split_names[[70]] <- "Non-Enrolling + Graduate School of Arts & Sciences + UEP/Economics Joint Degree.docx" | |
split_names[[71]] <- "Non-Enrolling + Graduate School of Arts & Sciences + UEP/Nutrition Dual Degree.docx" | |
split_names[[72]] <- "Non-Enrolling + Graduate School of Arts & Sciences + UEP/Public Health Dual Degree.docx" | |
split_names[[73]] <- "Non-Enrolling + Graduate School of Arts & Sciences + Urban and Environmental Policy & Planning.docx" | |
split_names[[74]] <- "Non-Enrolling + School of Engineering + Bioengineering.docx" | |
split_names[[75]] <- "Non-Enrolling + School of Engineering + Biomedical Engineering.docx" | |
split_names[[76]] <- "Non-Enrolling + School of Engineering + Biotechnology Engineering.docx" | |
split_names[[77]] <- "Non-Enrolling + School of Engineering + Chemical Engineering.docx" | |
split_names[[78]] <- "Non-Enrolling + School of Engineering + Civil and Environmental Engineering.docx" | |
split_names[[79]] <- "Non-Enrolling + School of Engineering + Computer Science.docx" | |
split_names[[80]] <- "Non-Enrolling + School of Engineering + Computer Science: Cognitive Science.docx" | |
split_names[[81]] <- "Non-Enrolling + School of Engineering + Electrical Engineering.docx" | |
split_names[[82]] <- "Non-Enrolling + School of Engineering + Human Factors.docx" | |
split_names[[83]] <- "Non-Enrolling + School of Engineering + Innovation and Management.docx" | |
split_names[[84]] <- "Non-Enrolling + School of Engineering + Mechanical Engineering.docx" | |
# Write output to output directory using the html_2_pandoc function | |
for (i in 1:length(split_names)) { | |
html_2_pandoc( | |
html = c(blocks_header_to_html(split_blocks[[i]]), | |
text_appendices_table(blocks = split_blocks[[i]], | |
original_first_row = original_first_rows, | |
flow = flow)), | |
file_name = split_names[[i]], | |
output_dir = output_dir | |
) | |
} | |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment