code to get Guardian quick crossword

get_guardian_crossword.R

# load packages
library(dplyr)
library(tidyr)

# get today's date and base url in the dataframe
dat <- data.frame(date = as.character(Sys.Date()), 
                  url = 'https://crosswords-static.guim.co.uk/gdn.quick.pdf')

# replace '-' with ''
dat <- mutate(dat, date = gsub('-', '', date))

# split the address up on the dots
dat <- separate(dat, url, into = paste('C', 1:6, sep = ''), sep = '\\.')

# create new url from columns needed for today's crossword
fullURL <- unite(dat, fullURL, c(C1, C2, C3, C4, C5, date, C6), sep = '.') %>%
  pull(., fullURL)

fullURL

#open it in browser
browseURL(fullURL)