example of writing chunks using functions

_site.yml

@@ -8,6 +8,8 @@ navbar:
     icon: fa-home
   - text: Website Setup
     href: website_setup.html
+  - text: Course Setup
+    href: course_setup.html
 
 
 output:

course_setup.Rmd

@@ -0,0 +1,15 @@
+---
+title: |
+  <center> <u>OTTR Courses</u></center>
+  <center> <p style = "color:#986753;">Setup</p></center>
+date: "Last updated: `r format(Sys.time(), '%B %d, %Y')`"
+output: html_document
+css: style.css
+---
+
+
+## Create your OTTR repository from the [OTTR_Template repository](https://github.com/jhudsl/OTTR_Template)
+
+<input type="checkbox">  In the upper right, _click on_: <div class = "github_button"><a href="https://github.com/new?template_name=OTTR_Template&template_owner=jhudsl"> Use this template</a></div>
+
+<input type="checkbox">  Set your repo to **Public**

echo_chunks.R

@@ -0,0 +1,9 @@
+#!/usr/bin/env Rscript
+
+write_header <- function(cheatsheet_title, cheatsheet_subtitle){
+  return(paste0('---\ntitle: |\n  <center> <u>', cheatsheet_title, '</u></center>\n  <center> <p style = "color:#986753;">', cheatsheet_subtitle, '</p></center>\ndate: "Last updated: `r format(Sys.time(), \'%B %d, %Y\')`"\noutput: html_document\ncss: style.css\n---'))
+}
+
+write_use_template <- function(template_name, template_url){
+  return(paste0('\n\n## Create your OTTR repository from the [', template_name, ' repository](', template_url, ')\n\n<input type="checkbox">  In the upper right, _click on_: <div class = "github_button"><a href="https://github.com/new?template_name=', template_name, '&template_owner=jhudsl"> Use this template</a></div>\n\n<input type="checkbox">  Set your repo to **Public**'))
+}

website_setup_test_chunks.Rmd

@@ -0,0 +1,15 @@
+---
+title: |
+  <center> <u>OTTR Websites</u></center>
+  <center> <p style = "color:#986753;">Setup</p></center>
+date: "Last updated: `r format(Sys.time(), '%B %d, %Y')`"
+output: html_document
+css: style.css
+---
+
+
+## Create your OTTR repository from the [OTTR_Template_Website repository](https://github.com/jhudsl/OTTR_Template_Website)
+
+<input type="checkbox">  In the upper right, _click on_: <div class = "github_button"><a href="https://github.com/new?template_name=OTTR_Template_Website&template_owner=jhudsl"> Use this template</a></div>
+
+<input type="checkbox">  Set your repo to **Public**

write_cheatsheets.R

@@ -0,0 +1,9 @@
+#!/usr/bin/env Rscript
+
+library(here)
+library(tidyverse)
+source(here("echo_chunks.R"))
+
+c(write_header("OTTR Courses", "Setup"),
+  write_use_template("OTTR_Template", "https://github.com/jhudsl/OTTR_Template")
+  ) %>% write_lines(here("course_setup.Rmd"))