Get content from a HTML page

Utils.r

library(RCurl)
library(stringr)

RootURL <- "http://10.130.19.139/19659/"

DatFileURLs <- c()

CheckDatFolder <- function(folder)
{
	URL <- sprintf("%s%s/", RootURL, folder)
	html <- getURL(URL)
	html_lines <- strsplit(html, '\n')[[1]]
	
	ret <- str_extract(html_lines, 'bill-[0-9]+-[0-9]+-[0-9]+-[0-9]+\\.dat')
	for(l in 1:length(ret))
	{
		if(is.na(ret[l]))
		{
			next
		}
		
		DatFileURLs[length(DatFileURLs) + 1] <- sprintf("%s%s", URL, ret[l])
		print(tail(DatFileURLs, n=1))
	}
	
	return (DatFileURLs)
}

CheckDatFolderToday <- function()
{
	today <- as.character(Sys.Date())
	return (CheckDatFolder(today))
}

GetDatFileText <- function(file)
{
	return (getURL(file))
}

ParseDatFile <- function(text)
{
	
}