inst/topics/romance-of-the-three-kingdoms.R

In craigalexander/DAS_Bingo: Generate Bingo Cards

## main characters of "Romance of the Three Kingdoms"
## Huan Wang

c(
  "Liu Bei",
  "Liu Shan",
  "Guan Yu",
  "Zhang Fei",
  "Zhao Yun",
  "Ma Chao",
  "Huang Zhong",
  "Zhuge Liang/Kongming",
  "Pang Tong",
  "Wei Yan",
  "Mi Zhu",
  "Mi Fang",
  "Sun Qian",
  "Ma Dai",
  "Liu Feng",
  "Liao Hua",
  "Jiang Wei",
  "Cao Cao",
  "Cao Pi",
  "Lady Zhen",
  "Xiahou Dun",
  "Xiahou Yuan",
  "Dian Wei",
  "Xu Zhu",
  "Zhang Liao",
  "Xu Huang",
  "Zhang He",
  "Yu Jin",
  "Yue Jin",
  "Li Dian",
  "Pang De",
  "Guo Jia",
  "Xun Yu",
  "Xu Shu",
  "Sima Yi",
  "Sun Jian",
  "Sun Ce",
  "Sun Quan",
  "Lady Wu",
  "Lady Sun",
  "Zhou Yu",
  "Lu Su",
  "Lu Meng",
  "Lu Xun",
  "Gan Ning",
  "Ling Tong",
  "Zhou Tai",
  "Huang Gai",
  "Taishi Ci"
)


# -----------------------------------------------------
## library(rvest)
## library(robotstxt)
## paths_allowed("https://tropedia.fandom.com/wiki/Romance_of_the_Three_Kingdoms/Characters") # from robotstxt
## data <- read_html("https://tropedia.fandom.com/wiki/Romance_of_the_Three_Kingdoms/Characters")
## name <- data %>%
##   html_nodes(".toctext") %>%
##   html_text()
## name <- name[1:52]
## name.kingdom <- c("Kingdom of Shu-Han", "Kingdom of Wei", "Kingdom of Wu")
## bingo.name <- setdiff(name, name.kingdom)
## bingo.name