In Lightbridge-KS/CV: My Curriculum Vitae

knitr::opts_knit$set(root.dir = rprojroot::find_rstudio_root_file()) # Set WD to Root
here::i_am("dev/read.Rmd")
library(here)
library(readr)
library(googledrive)
library(googlesheets4)

Auth

drive_auth(email = "[e-mail]")
gs4_auth(token = drive_token())

drive_user()

Read

ss_cv_en <- as_sheets_id("https://docs.google.com/spreadsheets/d/1OIei_hGoJLS_gjsYAj2ihmGETa6gw6ZlnbA3gYwTei4/edit#gid=0")

Opt 1: Read Individual Sheet

edu <- read_sheet(ss_cv_en, sheet = "Education")
work <- read_sheet(ss_cv_en, sheet = "Employment")
nl <- read_sheet(ss_cv_en, sheet = "NL")
nl2 <- read_sheet(ss_cv_en, sheet = "NL2")
research <- read_sheet(ss_cv_en, sheet = "Research")
acad <- read_sheet(ss_cv_en, sheet = "Academic")
otherTr <- read_sheet(ss_cv_en, sheet = "Other_train")
elective <- read_sheet(ss_cv_en, sheet = "Elective")
app <- read_sheet(ss_cv_en, sheet = "App")

cv  <- list(edu = edu, 
       work = work, 
       nl = nl, 
       nl2 = nl2, 
       research = research,
       acad = acad,
       otherTr = otherTr,
       elective = elective,
       app = app
       ) %>% 
  write_rds(here("data/cv_raw.Rds")) %>% 
  # backup for others to see 
  lbr::write_custom_xlsx(here("data/cv_raw.xlsx"), overwrite = TRUE)

cv  

Opt 2: Read All GG sheets

read_cv_ggsheet <- function(ss = ss_cv_en) {

  edu <- read_sheet(ss, sheet = "Education")
  work <- read_sheet(ss, sheet = "Employment")
  nl <- read_sheet(ss, sheet = "NL")
  nl2 <- read_sheet(ss, sheet = "NL2")
  research <- read_sheet(ss, sheet = "Research")
  acad <- read_sheet(ss, sheet = "Academic")
  otherTr <- read_sheet(ss, sheet = "Other_train")
  elective <- read_sheet(ss, sheet = "Elective")

  list(edu = edu, 
       work = work, 
       nl = nl, 
       nl2 = nl2, 
       research = research,
       acad = acad,
       otherTr = otherTr,
       elective = elective
       )
}

cv <- read_cv_ggsheet() %>%
  write_rds(here("data/cv_raw.Rds")) %>% 
  # backup for others to see 
  lbr::write_custom_xlsx(here("data/cv_raw.xlsx"), overwrite = TRUE)

cv 

Convert Year (พศ -> คศ)

BE_to_AD <- function(be) be - 543

BE_to_AD(c(2559, 2558))

Lightbridge-KS/CV documentation built on Dec. 17, 2021, 12:05 a.m.