source("00-load_packages.R")
rD <- rsDriver(port = 4570L, browser = "chrome")
remDr <- rD[["client"]]
log_into_medicover()
Sys.sleep(5)
debug(dynamic_url)
dynamic_url(doctor = "ortopeda", region ="warszawa")
Sys.sleep(15)
medicover_data <- get_reservation_data(sleep_time = 12, click_break = 5)
doctor_names <- unique(medicover_data$doctor_name)
data <- lapply(doctor_names, scrap_doctor_rate)
data <- rbindlist(data)
setkey(data, doctor_name)
setkey(medicover_data, doctor_name)
full_data <- data[medicover_data]
### znajdz medicover online
rD$server$stop()
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.