In bryanwhiting/generalconference: General Conference text corpus and web scrapers

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

Load the data and analyze

library(generalconference)
library(dplyr)
data("genconf")
head(genconf)

df <- genconf

How many conferences have there been since 1971?

df %>%
  count()

How many sessions have there been?

df %>%
  unnest(sessions) %>%
  count()

How many talks have there been since 1971?

df %>%
  unnest(sessions) %>%
  unnest(talks) %>%
  count()

Explore the quality of the data

df_talks <- df %>%
  unnest(sessions) %>%
  unnest(talks)

df_talks %>%
  head()

Only one talk without a title, but this is a video talk.

df_talks %>% filter(is.na(title1)) %>% pull(url)

bryanwhiting/generalconference documentation built on Dec. 19, 2021, 11:51 a.m.