autosynthesis-demo

# install.packages("rvest")

library(rvest)


# DEFINE WEBPAGE BASE ADDRESS #
url <- "https://www.medrxiv.org/"

# OPEN BASE ADDRESS #
browseURL(url)

# OPEN WEBPAGE VIRTUALLY #
page <- read_html(url)

# GET INFORMATION FROM PAGE #
text <- page %>%
  html_node(".view-by-month-link") %>%
  html_text('') 

path <- page %>%
  html_nodes(".view-by-month-link") %>%
  html_attr('href')

# CREATE NEW LINK BY ADDING THE PATH TO THE BASE ADDRESS #
new.url <- paste0("https://www.medrxiv.org/",path)


# OPEN NEW LINK #
browseURL(new.url)