reverting

jsgro · Oct 25, 2022 · 8be0bf5 · 8be0bf5
1 parent ba5a5ed
commit 8be0bf5
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/inference/parameters-estimates.Rmd b/inference/parameters-estimates.Rmd
@@ -24,7 +24,7 @@ Real Clear Politics^[http://www.realclearpolitics.com] is an example of a news a
 url <- "https://web.archive.org/web/20161108012231/https://www.realclearpolitics.com/epolls/2016/president/us/general_election_trump_vs_clinton-5491.html"
 library(rvest)
 tab <- read_html(url) |> html_elements("table")
-tab <- tab[[2]] |> html_table() |> 
+tab <- tab[[1]] |> html_table() |> 
   mutate(Poll = stringr::str_remove(Poll, "\\/.*")) |>
   mutate(Poll = case_when(
     Poll == "BloombergBloomberg" ~ "Bloomberg",