R googlesheets db implementation

R/journal_table.Rmd

@@ -0,0 +1,42 @@
+---
+title: "Journals"
+author: "Hao Ye"
+date: "May 10, 2018"
+output: html_document
+---
+
+```{r setup, include=FALSE}
+knitr::opts_chunk$set(echo = TRUE)
+library(googlesheets)
+library(dplyr)
+library(lubridate)
+library(DT)
+```
+
+```{r get data, include = FALSE}
+# The Google Sheets API (which is used by the R package `googlesheets`) requires 
+# that the spreadsheet be "Published to the Web" (under the file menu).
+# I've made a copy of the original and published the `Journals` sheet here:
+
+# journal_db_url <- "https://docs.google.com/spreadsheets/d/1QTLR5NZbB6h4HpiHYOkQsEyBMzhcMN2Y8AVULLMFYBo/edit?usp=sharing"
+# journal_db <- gs_url(journal_db_url)
+
+# key is supposed to be reliable than URL
+journal_db_key <- "1QTLR5NZbB6h4HpiHYOkQsEyBMzhcMN2Y8AVULLMFYBo"
+journal_data <- journal_db_key %>%
+    gs_key() %>%
+    gs_read(ws = "Journals")
+```
+
+```{r clean data, include = FALSE}
+journal_data$"Date reviewed" <- as.Date(parse_date_time(journal_data$"Date reviewed", 
+                                                           orders = c("m/d/y", "d b y")))
+```
+
+```{r generate table, echo = FALSE}
+journal_data %>% 
+    datatable(filter = "top") %>%
+    formatDate("Date reviewed", method = "toDateString")
+```
+
+

R/render_html.R

@@ -0,0 +1,3 @@
+rmarkdown::render(here::here("R", "journal_table.Rmd"))
+file.rename(here::here("R", "journal_table.html"), 
+            here::here("static", "journal_table.html"))