Web Scraping

Pacotes

library(rvest)
library(tidyverse)
library(openxlsx)
library(DT)

Fazendo o webscraping

url <- 'https://impostometro.com.br/home/relacaoprodutos'
tabela <- read_html(url) %>% html_table()
dados <- tabela[[1]]
colnames(dados) <- c("A1","A2")

for (i in 2:23) {
  vari <- tabela[[i]]
  colnames(vari) <- c("A1","A2")
  dados <- bind_rows(dados,vari)
  
}
colnames(dados) <- c("Produtos","Tributos")


datatable(dados)

Exportando em planilha de excel

# write.xlsx(dados,"impostos.xlsx")