estoy intentando realizar un scraping para obtener datos de una farmacia, voy super bien en la parte de scraping vertical, pero no se como seguir horizontalmente. He buscado en sitios de internet, pero no me sale ninguna información. Creo que tiene que ver con algún tipo de ciclo, ya que el link va cambiando a medida que voy de una pagina a otra, como en mercado libre. El primer link de la página 1, es distinto al de la página 2, pero desde el segundo link, cambia solo el último dígito, como por ejemplo
https://salcobrand.cl/t/medicamentos?current_store_id=1&page=2
pasa a esto
https://salcobrand.cl/t/medicamentos?current_store_id=1&page=3
El codigo que llevo hasta ahora lo pongo abajo, pero no se como seguir ahora. Espero me puedan ayudar.
library(rvest)
library(robotstxt)
library(selectr)
library(xml2)
library(dplyr)
library(stringr)
library(forcats)
library(magrittr)
library(tidyr)
library(ggplot2)
library(lubridate)
library(tibble)
library(purrr)
url = "https://salcobrand.cl/t/medicamentos"
# Leer el HTML
leahtml <- read_html(url)
#PRECIO
leahtml %>%
html_nodes(".sale-price ") %>%
html_text() -> price
precio = gsub("Oferta:","",price)
precio = gsub("Precio","",precio)
precio = gsub(" ","",precio)
precio = gsub("farmacia:","",precio)
precio_a = gsub("\\$","",precio)
precio_a = str_trim(precio_a)
precio_medicamento= substr(precio_a,1,5)
Precio_medicamento= as.numeric(precio_medicamento)
#NOMBRE
leahtml %>%
html_nodes(".product-name") %>%
html_text() -> Nombre
#FORMATO
leahtml %>%
html_nodes(".product-info") %>%
html_text() -> pactivo
pactivo = gsub("Principio","",pactivo)
pactivo = gsub("Pricipio","",pactivo)
pactivo = gsub(" ","",pactivo)
Principio_activo= gsub("Activo:","",pactivo)
pactivo_limpio
#FORMATO
leahtml %>%
html_nodes(".option-value-catalog ") %>%
html_text() -> Formato
dataset <- data.frame(Nombre,Principio_activo, Formato, Precio_medicamento)