update resume

update resume

css/styles.css

@@ -1,8 +1,8 @@
-@import url('https://fonts.googleapis.com/css2?family=Open+Sans&display=swap')
+/* @import url('https://fonts.googleapis.com/css2?family=Open+Sans&display=swap') */
 
 
 body {
-  font-family: 'Open Sans', sans-serif;
+  /*font-family: 'Open Sans', sans-serif;*/
   color: #444
 }
 

kyle_resume.Rmd

@@ -10,7 +10,7 @@ output:
     # set it to true for a self-contained HTML page but it'll take longer to render
     self_contained: true
 # uncomment this line to produce HTML and PDF in RStudio:
-#knit: pagedown::chrome_print
+knit: pagedown::chrome_print
 ---
 
 
@@ -63,12 +63,15 @@ contact_info %>% glue_data("- <i class='fa fa-{icon}'></i> {contact}")
 - For more information, please contact me via email.
 
 
-Skills {#skills}
+Software Skills {#skills}
 --------------------------------------------------------------------------------
 
 ```{r}
 
-build_skill_bars(skills)
+# build_skill_bars(skills)
+
+skills %>% glue_data("- {skill} <br>")
+
 
 ```
 

parsing_functions.R

@@ -49,7 +49,7 @@ strip_links_from_cols <- function(data, cols_to_strip){
 print_section <- function(position_data, section_id){
   position_data %>% 
     filter(section == section_id) %>% 
-    arrange(desc(end)) %>% 
+    arrange(desc(end), !is.na(start)) %>% 
     mutate(id = 1:n()) %>% 
     pivot_longer(
       starts_with('description'),
@@ -95,7 +95,7 @@ print_section <- function(position_data, section_id){
 # Construct a bar chart of skills
 build_skill_bars <- function(skills, out_of = 5){
   bar_color <- "#969696"
-  bar_background <- "#d9d9d9"
+  bar_background <- "#2C446F"
   skills %>% 
     mutate(width_percent = round(100*level/out_of)) %>% 
     glue_data(