remove old code in vignettes

Author: wibeasley

vignettes/BasicREDCapROperations.Rmd

@@ -30,30 +30,6 @@ opts_chunk$set(
   comment = "#>",
   tidy    = FALSE
 )
-
-# knit_print.data.frame <- function(x, ...) {
-#   # See https://cran.r-project.org/package=knitr/vignettes/knit_print.html
-#   # res = paste(c("", "", kable(x)), collapse = "\n")
-#   # asis_output(res)
-#   x %>%
-#     # dplyr::mutate_if(
-#     #   is.character,
-#     #   function( s ) gsub("\\n", "<br/>", s)
-#     # ) %>%
-#     kable(
-#       col.names = gsub("_", " ", colnames(.)),
-#       format    = "html"
-#     ) %>%
-#     kableExtra::kable_styling(
-#       bootstrap_options = c("striped", "hover", "condensed", "responsive"),
-#       full_width        = FALSE
-#     ) %>%
-#     c("", "", .) %>%
-#     paste(collapse = "\n") %>%
-#     asis_output()
-# }
-# options(markdown.HTML.header = system.file("misc/vignette.css", package = "REDCapR"))
-# options(width=120) #So the output is 50% wider than the default.
 ```
 
 Set project-wide values

vignettes/advanced-redcapr-operations.Rmd

@@ -27,25 +27,6 @@ opts_chunk$set(
   comment = "#>",
   tidy    = FALSE
 )
-
-# knitr::opts_chunk$set(comment = "#>", collapse = TRUE)
-# knit_print.data.frame <- function(x, ...) {
-#   # See https://cran.r-project.org/package=knitr/vignettes/knit_print.html
-#
-#   x %>%
-#     # rmarkdown::print.paged_df() %>%
-#     kable(
-#       col.names = gsub("_", " ", colnames(.)),
-#       format = "html"
-#     ) %>%
-#     kableExtra::kable_styling(
-#       bootstrap_options = c("striped", "hover", "condensed", "responsive"),
-#       full_width        = FALSE
-#     ) %>%
-#     c("", "", .) %>%
-#     paste(collapse = "\n") %>%
-#     asis_output()
-# }
 ```
 
 Next Steps {#nextsteps .emphasized}