# Load your libraries here library('qcoder') library('dplyr') library('knitr')
# This can be copied from the qcode() application. Include quotation marks. project_path <- PATH_TO_PROJECT_HERE
# Do the code work project_name <- basename(project_path) docs_df_path <- paste0(project_path, "/data_frames/qcoder_documents_", project_name, ".rds") codes_df_path <- paste0(project_path, "/data_frames/qcoder_codes_", project_name, ".rds") units_df_path <- paste0(project_path, "/data_frames/qcoder_units_", basename(project_path), ".rds") text_df <- readRDS(docs_df_path) parsed <- qcoder::parse_qcodes(text_df) codes_df <- readRDS(codes_df_path) units_df <- readRDS(units_df_path)
r project_name
Number of documents: r nrow(text_df)
Number of codes: r nrow(codes_df)
Number of segments coded: r nrow(parsed)
Number of units: r nrow(units_df)
Frequency of codes
parsed %>% group_by(qcode) %>% summarise(n = n())
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.