library(rvest)

url <- "https://rvest.tidyverse.org/articles/starwars.html"
html <- read_html(url)

rvest::html_children(html)
html_element(html, "body")
url <- "https://domenicovistocco.it/rlab/"
html <- read_html(url)
tb_corso <- html_element(html, "table") |> html_table()

table <- html |> 
  html_element("table") |> 
  html_table()


# Installa i package necessari
install.packages("RSelenium")

library(RSelenium)
library(rvest)

# Avvia un browser Firefox automatizzato
driver <- rsDriver(browser = "firefox", chromever = NULL)
remote <- driver$client

# Naviga alla pagina
remote$navigate("https://open.spotify.com/playlist/37i9dQZEVXbIQnj7RRhdSX")

# Attendi il caricamento della pagina
Sys.sleep(5)

# Ottieni l'HTML renderizzato
html <- remote$getPageSource()[[1]]

# Ora puoi usare rvest sull'HTML completo
pagina <- read_html(html)

# Chiudi il browser
remote$close()
driver$server$stop()
