Fix read_html_live example

R/live.R

@@ -27,16 +27,21 @@
 #' # When we retrieve the raw HTML for this site, it doesn't contain the
 #' # data we're interested in:
 #' static <- read_html("https://www.forbes.com/top-colleges/")
-#' static %>% html_elements(".TopColleges2023_tableRow__BYOSU")
+#' static |> html_element("table")
 #'
 #' # Instead, we need to run the site in a real web browser, causing it to
 #' # download a JSON file and then dynamically generate the html:
-#'
-#' sess <- read_html_live("https://www.forbes.com/top-colleges/")
-#' sess$view()
-#' rows <- sess %>% html_elements(".TopColleges2023_tableRow__BYOSU")
-#' rows %>% html_element(".TopColleges2023_organizationName__J1lEV") %>% html_text()
-#' rows %>% html_element(".grant-aid") %>% html_text()
+#' dynamic <- read_html_live("https://www.forbes.com/top-colleges/")
+#' # You may need to click the cookie consent banner if it appears
+#' dynamic$view()
+#' 
+#' # Now we can find the table
+#' dynamic |> html_element("table")
+#' 
+#' # And extract data from it
+#' dynamic |> 
+#'   html_element("table") |> 
+#'   html_table()
 #' }
 read_html_live <- function(url) {
   check_installed(c("chromote", "R6"))