# Visual Analytics 2017-2018 - Tutorial #2


# Import the library for loading web pages
library(rvest)



# [TRY IT] - Write a function to fetch and save all
# of the vispubdata pages found here: 
vispubdata_root <- 'https://www.lri.fr/~isenberg/VA/vispubdata'
vispubdata_first <- 'pub_output_0.html'



fetch_vispubdata_pages <- function(){
  print('TODO: Fetch vispubdata pages and save them locally. Notice that there are multiple pages of records to download.')
  
  
  
}

# [TRY IT] Write a function that processes all
#  of the saved vispubdata files and produces a CSV
process_vispubdata_pages <- function(){
  #TODO: Process vispubdata pages
  print('TODO: Process vispubdata pages to a CSV')
}



fetch_vispubdata_pages()
process_vispubdata_pages()