thoughtfulbloke

library(dplyr)
library(lubridate)
library(readr)
library(RcppRoll)
library(ggplot2)
library(ggthemes)
sixcols= colorblind_pal()(6)

case_counts <- read_csv("https://raw.githubusercontent.com/minhealthnz/nz-covid-data/main/cases/covid-case-counts.csv") 

thoughtfulbloke

```{r}
library(readr)
library(dplyr)
library(lubridate)
```

David's usage notes for the wastewater data at: https://github.com/ESR-NZ/covid_in_wastewater

I am reading the files directly of github, rather than downloading and then reading locally.

thoughtfulbloke

library(rvest) # process web pages
library(dplyr) # general data pipeleine tools
library(lubridate) # date functions

# saving demographic pages as html into a folder
# called case_demografics_html_asof
# with a datestamp name for the contents
Demographs <- list.files("../case_demografics_html_asof", pattern=".*html$")

extract_vax <- function(x) {

thoughtfulbloke

# source this file so it pauses for input,
# check the graphs
# add comments via the readline input
# post using rtweet

library(rvest)
library(dplyr)
library(ggplot2)
library(lubridate)
library(rtweet)

thoughtfulbloke

library(rvest)
library(dplyr)
library(lubridate)
library(stringr)
library(readr)
library(ggplot2)
library(ggthemes)
library(RcppRoll)

sixcol <- colorblind_pal()(6)

thoughtfulbloke

legpos="right"
theme_davidhood <- function(){
  # theme_minimal(base_family="OpenSans") %+replace% 
  theme_minimal() %+replace% 
    theme(panel.grid = element_blank(),
          axis.line.x = element_line(size=0.1),
          axis.line.y = element_line(size=0.1),
          axis.ticks = element_line(size=0.2),
          strip.background = element_rect(fill= "#FFFFFF", colour="#EFEFEF"),
          strip.text = element_text(size = 13,

thoughtfulbloke

library(rvest)
library(dplyr)
library(tidyr)
library(lubridate)
library(stringr)
library(readr)
library(ggplot2)
library(ggthemes)
library(patchwork)
source("davidise.R")

thoughtfulbloke

library(rvest)
library(readr)
library(dplyr)
library(tidyr)
library(lubridate)

#######
# assuming the DHB subnational population file downloaded
# and cached in the working directory from
# https://figure.nz/table/vEnTmdKKixC0HrEF

thoughtfulbloke

thoughtfulbloke

library(readr)
library(dplyr)
library(lubridate)
library(RcppRoll)
library(ggplot2)
library(ggthemes)
library(sf)
library(rmapshaper)
library(tidyr)
library(patchwork)