Skip to content

Instantly share code, notes, and snippets.

@ctesta01
Last active March 17, 2017 15:14
Show Gist options
  • Save ctesta01/f060ebd84afcf1e1b7ed515043266ec6 to your computer and use it in GitHub Desktop.
Save ctesta01/f060ebd84afcf1e1b7ed515043266ec6 to your computer and use it in GitHub Desktop.
Using comment_coding.R
library(QualtricsTools)
source("comment_coding.R")
get_setup(headerrows=2)
comments_dir <- "C:/path/to/coded_comments/here/"
coded_comments <- directory_coded_comments(comments_dir)
blocks <- insert_coded_comments(blocks, original_first_rows, coded_comments)
questions <- questions_from_blocks(blocks)
flow <- flow_from_survey(survey)
text_appendices <- text_appendices_table(blocks, original_first_rows, flow)
html_2_pandoc(html = c(blocks_header_to_html(blocks), text_appendices), file_name = "coded_text_appendices.docx", format = "docx", output_dir = "C:/output/directory/here/")
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment