#' Open AFIT-Specific forms in a browser
#'
#' @importFrom utils browseURL
#'
#' @description This function from to complete an AFIT Thesis, the
#' @export
#'
style_guide <- function(school = 'afit' ) {
if(tolower(school)=='afit') {
utils::browseURL(system.file('rmd',
'afit_style_guide_2015.pdf',
package = 'AFIT'))
}
}
#' Open AFIT-Specific forms in a browser
#'
#' @importFrom utils browseURL
#'
#'
#' @description This function from to complete an AFIT Thesis, the
#' @export
publicRelease <- function( ) {
utils::browseURL('http://dtic.mil/dtic/pdf/distribution_statements_and_reasons.pdf')
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.