code to scrape the list of bright stars from Wikipedia and count by hemisphere

brightstar_scrape.R

## https://ivelasq.rbind.io/blog/politely-scraping/index.html
## To clean data
library(tidyverse)
library(lubridate)
library(janitor)
# To scrape data
library(rvest)
library(httr)
library(polite)

url <- "https://en.wikipedia.org/wiki/List_of_brightest_stars"
url_bow <- polite::bow(url)


ind_html <-
  polite::scrape(url_bow) %>%  # scrape web page
  rvest::html_nodes("table.wikitable:nth-child(22)") %>% # pull out specific table
  rvest::html_table(fill = TRUE)

tab <- ind_html[[1]]
tab |>  count(`Celestial Hemisphere`)