halhen

# Pasted from various sources and published quickly as part of a twitter discussion; not tested if this copy/paste actually runs.
# Result as https://twitter.com/hnrklndbrg/status/859888911337873409

library(tidyverse)
library(lubridate)

df.recent <- read_csv2('/home/henrik/private/vizyns/data/väder/göteborg-a-20170502.csv', skip=15) %>%
  transmute(date=`Representativt dygn`,
            min=as.numeric(`Lufttemperatur`),
            max=as.numeric(`Lufttemperatur_1`))