Nothing
knitr::opts_chunk$set( collapse = TRUE, comment = "#>" )
library(IPEDSuploadables)
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) #alternatively, this code combination works for save/load and doesn't end up as package data #write.csv(x = specs_COM, file = "../vignettes/specs_COM.csv", row.names = FALSE) #specs_COM <- data.frame(read.csv("specs_COM.csv", stringsAsFactors = FALSE)) # but the file size for the csv is slightly larger than the 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')
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)
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')
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.