run_webpage.R

## Compile Webpage and push it to rladieslausanne.github.io
## =========================================================

## installation here: https://bookdown.org/yihui/blogdown/installation.html
#install.packages("blogdown")
## Or, install from GitHub
#if (!requireNamespace("devtools")) install.packages("devtools")
#devtools::install_github("rstudio/blogdown")
#blogdown::install_hugo()

library(blogdown)
## >> creates new website, but because we have ours already, don't do that :-) 
## blogdown::new_site(theme = "yihui/hugo-xmin")

## 1) if you want a new post:
#new_post(title="A first post using blogdown", kind = ".Rmd")

## 2) update website
## ---------------------------
blogdown::hugo_build()

## 3) go to a terminal
## ---------------------------

path <- getwd()
comment <- '"Add meetup link 3rd Dec"'

## b) commit changes of webpage folder
## add files system("git add ...")
system(paste0("git commit -a -m ", comment))
system("git push")


## a) commit changes to github 
setwd("../../rladieslausanne.github.io/")
system("git add -f *")
system(paste0("git commit -a -m ", comment))
system("git push")

setwd(path)