Updates to files

.gitignore

@@ -39,3 +39,4 @@ vignettes/*.pdf
 # ignore old resume 
 
 old/ 
+.vscode/launch.json

gather_data.R

@@ -8,7 +8,3 @@ position_data <- read_sheet(sheet_loc, sheet = "positions")
 skills        <- read_sheet(sheet_loc, sheet = "skills")
 contact_info  <- read_sheet(sheet_loc, sheet = "contact_info")
 text_blocks   <- read_sheet(sheet_loc, sheet = "text_block")
-
-
-
-

kyle_resume.Rmd

@@ -19,7 +19,6 @@ knitr::opts_chunk$set(
   results = 'asis'
   ,echo = FALSE
 )
-
 library(tidyverse)
 library(glue)
 
@@ -32,10 +31,8 @@ source('parsing_functions.R')
 source('gather_data.R')
 
 
-position_data <- position_data %>% 
+position_data <- position_data %>%
   filter(in_resume)
-  
-
 ```
 
 
@@ -97,7 +94,7 @@ Education {data-icon=graduation-cap data-concise=true}
 --------------------------------------------------------------------------------
 
 ```{r}
-position_data %>% print_section('education')
+position_data %>% print_section("education")
 ```
 
 

parsing_functions.R

@@ -44,6 +44,8 @@ strip_links_from_cols <- function(data, cols_to_strip){
   data
 }
 
+section_id  <- "education"
+
 # Take a position dataframe and the section id desired
 # and prints the section to markdown. 
 print_section <- function(position_data, section_id){
@@ -85,10 +87,10 @@ print_section <- function(position_data, section_id){
       "\n\n",
       "{loc}",
       "\n\n",
-      "{timeline}", 
+      "{timeline}",
       "\n\n",
       "{description_bullets}",
-      "\n\n\n",
+      "\n\n\n"
     )
 }
 

render_report.R

@@ -0,0 +1,5 @@
+
+# Have to set this prior to running RMD Document
+Sys.setenv(RSTUDIO_PANDOC="C:/Users/belangew/AppData/Local/Pandoc")
+
+rmarkdown::render("kyle_resume.Rmd", output_format = "all")