dataProcessing/alongside.R

library(XML)
library(RCurl)
library(rlist)
theurl <- getURL("http://www.southamptonvts.co.uk/Live_Information/Shipping_Movements_and_Cruise_Ship_Schedule/Vessels_Alongside/",.opts = list(ssl.verifypeer = FALSE) )
tables <- readHTMLTable(theurl)
tables <- list.clean(tables, fun = is.null, recursive = FALSE)
n.rows <- unlist(lapply(tables, function(t) dim(t)[1]))
CfSOtago/airQual documentation built on Nov. 13, 2020, 8:08 a.m.