# Visual Analytics 2015-2016 - Assignment #1
# Name: INSERT YOUR NAME HERE


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

# Set the current working directory to the directory of the file
this.dir <- dirname(parent.frame(2)$ofile)
setwd(this.dir)


# Assignment 1.1 - Write a function to fetch and save all
# of the movement pages found here: 
movement_root <- 'https://www.lri.fr/~isenberg/VA/movement/'
movement_first <- 'https://www.lri.fr/~isenberg/VA/movement/index.html'



fetch_movement_pages <- function(){
  print('TODO: Fetch movement pages and save them locally')
 
}

# Assignment 1.2 - Write a function that processes all
#  of the saved movement files and produces a CSV
process_movement_pages <- function(){
  #TODO: Process movement pages
  print('TODO: Process movement pages to a CSV')
}


# Assignment 1.3 - Write a function to fetch and save all
# of the communication pages found here: 
communication_root <- 'https://www.lri.fr/~isenberg/VA/communication/'
communication_first <- 'https://www.lri.fr/~isenberg/VA/communication/index.html'
fetch_communication_pages <- function(){
  # TODO: Fetch communication pages
  print('TODO: Fetch communication pages and save them locally')
}


# Assignment 1.4 - Write a function that processes all
#  of the saved communication files and produces a CSV
process_communication_pages <- function(){
  #TODO: Process communication pages
  print('TODO: Process communication pages to a CSV')
}



# The script should fetch and then process both datasets.

fetch_movement_pages()
process_movement_pages()
fetch_communication_pages()
process_communication_pages()