Kapittel 9 Fasit

9.1 Oppgave 1

read_html("https://www.ssb.no/virksomheter-foretak-og-regnskap/artikler-og-publikasjoner/utbytte-pa-514-milliarder-kroner") %>%
  html_node("#content > div.artikkel > div.main.section.span-overflow-visible.clearfix > div > div") %>% 
  html_text()

# Bruke html_nodes("p") gir alle noder i HTML-strukturen som er indikert med p (for "paragraph").
read_html("https://www.ssb.no/virksomheter-foretak-og-regnskap/artikler-og-publikasjoner/utbytte-pa-514-milliarder-kroner") %>%
  html_nodes("p") %>% 
  html_text()

9.2 Oppgave 2

vaeret <- read_html("https://www.yr.no/") %>%
  html_nodes("table") %>%
  html_table()

vaeret <- vaeret[[2]]

openxlsx::write.xlsx(vaeret, file = "./vaeret.xlsx")