covid_data/render_site.R at main · snook129/covid_data · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
library(tidyverse)
library(lubridate)
library(here)

source(here("get_data.R"))

rmarkdown::render(
  input = here("index.Rmd"),
  output_format = "github_document",
  envir = new.env()
)

rmarkdown::render(
  input = here("bay_area.Rmd"),
  output_format = "github_document",
  envir = new.env()
)

the_states <- list(
  "Alabama" = "alabama",
  "Arizona" = "arizona",
  "Arkansas" = "arkansas",
  "California" = "california",
  "Florida" = "florida",
  "Georgia" = "georgia",
  "Illinois" = "illinois",
  "Michigan" = "michigan",
  "New Jersey" = "new_jersey",
  "New York" = "new_york",
  "North Carolina" = "north_carolina",
  "Oklahoma" = "oklahoma",
  "South Carolina" = "south_carolina",
  "Tennessee" = "tennessee",
  "Texas" = "texas",
  "Utah" = "utah",
  "Washington" = "washington",
  "West Virginia" = "west_virginia"
)

for( state in seq_along(the_states) ) {
  state_name <- names(the_states[state])
  file_name <- the_states[[state]]
  rmarkdown::render(
    input = str_glue("States/state_report.Rmd"),
    output_file = file_name,
    output_format = "github_document",
    params = list(
      report_state = state_name
    ),
    envir = new.env()
  )
  Sys.sleep(1)
  knitr::knit_meta(class=NULL, clean = TRUE)
}

rmarkdown::render(
  input = here("README.Rmd"),
  output_format = "github_document",
  envir = new.env()
)