library(rvest) 
library(tidyverse)
library(httr)
library(writexl)
library(boot)

dados_direcional_liso <- data.frame()
for (i in 0:2) {
  libera_direcional_liso <- httr::set_config(httr::user_agent("Chrome/125.0.6422.142")) 
  link_direcional_liso <- GET(paste0("https://www.pneustore.com.br/categorias/caminhao-e-onibus?q=%3Arelevance%3AvehiclePosition%3ADIRECTIONAL%3AmeasureWheelRim%3A22.#5&page="), i, libera_direcional_liso)
  
  page_html_direcional_liso <- rvest::read_html(content(link_direcional_liso, as = "text", encoding = "UTF-8"))
  
  tipo_direcional_liso <- page_html_direcional_liso %>%
    html_elements(xpath = '/html/body/main/div/div[3]/section/ol/li/div/div/div[2]/div[1]/a[1]/h2') %>%
    html_text2()
  
  preco_direcional_liso <- page_html_direcional_liso %>%
    html_elements(xpath = '/html/body/main/div/div[3]/section/ol/li/div/div/div[2]/div[2]/div[1]/div/div/div/div/span[1]/span[2]') %>%
    html_text2()
  
  tabela_direcional_liso <- as.data.frame(cbind(tipo_direcional_liso, preco_direcional_liso))
  
  dados_direcional_liso <- rbind(dados_direcional_liso, tabela_direcional_liso)
}

dados_tracao <- data.frame()
for (i in 0:0) {
  libera_tracao <- httr::set_config(httr::user_agent("Chrome/123.0.6312.86")) 
    link_tracao <- GET(paste0("https://www.pneustore.com.br/categorias/caminhao-e-onibus?q=%3Arelevance%3AvehiclePosition%3ATRACTION%3AmeasureWheelRim%3A22.5&page=", i), libera_direcional_liso)
  
  page_html_tracao <- rvest::read_html(content(link_tracao, as = "text"))
  
  tipo_tracao <- page_html_tracao %>%
    html_nodes(".product-name-title") %>%
    html_text2()
  
  preco_tracao <- page_html_tracao %>%
    html_nodes(".highlight") %>%
    html_text2()
  
  tabela_tracao <- as.data.frame(cbind(tipo_tracao, preco_tracao))
  
  dados_tracao <- rbind(dados_tracao, tabela_tracao)
}

colnames(dados_direcional_liso)[1] <- "tipo"
colnames(dados_direcional_liso)[2] <- "preco"
colnames(dados_tracao)[1] <- "tipo"
colnames(dados_tracao)[2] <- "preco"

dados_direcional_liso <- dados_direcional_liso %>%
  filter(grepl("275/80", tipo) | grepl("295/80", tipo))

dados_tracao <- dados_tracao %>%
  filter(grepl("275/80", tipo) | grepl("295/80", tipo))

pneustores <- as.data.frame(rbind(dados_direcional_liso)) %>%
  mutate(Marca1=str_extract(tipo, "Pneu(.*?)Aro"),
         Marca=str_replace_all(Marca1, c("Pneu"="", "Aro"="")),
         Perfil1=str_extract(tipo, "/(.*?)R"),
         Perfil=str_replace_all(Perfil1, c("/"="", "R"="")),
         Modelo1=str_extract(tipo, c("275/80")),
         Modelo2=str_extract(tipo, c("295/80")),
         Modelo = paste0(Modelo1, Modelo2))


dados_final <- as.data.frame(pneustores[,c(4,2,6, 9)])