In AlisonLanski/IPEDSuploadables: Transforms Institutional Data into Text Files for IPEDS Automated Import/Upload

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

library(IPEDSuploadables)

To use the produce_com_report function, your student completions data must be in the format described below

• One row per person per degree level per cip per major
• One IPEDS Unitid per file
• Columns with values and types as described below (additional columns are allowed)

Note: Column names can use any capitalization method you like

#this chunk is only used during interactive session by the package maintainers, if the requirements have been updated

tryCatch(specs_COM <- googlesheets4::read_sheet("https://docs.google.com/spreadsheets/d/132EKp46TpEHPlVrG9FZxINxmVVz8UO0Ov989sP4lNaP/edit", sheet = 1), 
        error = function(x) message("Google Sheet unavailable"),
        warning = function(y) message("There was a warning"))

usethis::use_data(specs_COM, overwrite = TRUE)

#figure out why striped isn't working when format = 'html'
load("../data/specs_COM.rda")
library(magrittr)
specs_COM$ACCEPTABLE_VALUES <- stringr::str_replace_all(specs_COM$ACCEPTABLE_VALUES, pattern = "\\n", replacement = "<br>")
specs_COM_startingdf <- specs_COM[specs_COM$DATA_FRAME == 'startingdf', 2:4]
knitr::kable(specs_COM_startingdf,
             format = 'html',
             escape = FALSE,
             col.names = c('Column Name', 'Column Type', 'Acceptable Value - Definition')) %>%
    kableExtra::kable_styling(bootstrap_options = "striped") %>%
  kableExtra::column_spec(2, italic = TRUE, width = '8em')

If there are any cip code/degree level/major number combinations that are possible for students to obtain but are NOT represented in this year's student completions data, use the format below to incorporate them into the make_com functions.

• One row per degree level per cip per major
• One IPEDS Unitid per file
• Columns with values and types as described below (additional columns are allowed)

#figure out why striped isn't working when format = 'html'
specs_COM_extracips <- specs_COM[specs_COM$DATA_FRAME == 'extracips', 2:4]
knitr::kable(specs_COM_extracips,
             format = 'html',
             escape = FALSE,
             col.names = c('Column Name', 'Column Type', 'Acceptable Value - Definition'),
             row.names = FALSE) %>%
    kableExtra::kable_styling(bootstrap_options = "striped") %>%
  kableExtra::column_spec(2, italic = TRUE, width = '8em')

AlisonLanski/IPEDSuploadables documentation built on Nov. 2, 2023, 10:54 a.m.