Displaying 1 result from an estimated 1 matches for "mypage1".
Did you mean:
mypage
2011 Dec 03
2
Downloading tab separated data from internet
....gov/ida/available_records.cfm?sn=03015795
I could get the start date and end date from this form using:
#
# Specifying station and reading from the opening form
stn<-"03015795"
myurl<-paste("http://ida.water.usgs.gov/ida/available_records.cfm?sn=",stn,sep="")
mypage1 = readLines(myurl)
# Getting the start and end dates
mypattern = '<td align="center">([^<]*)</td>'
datalines = grep(mypattern, mypage1[124], value=TRUE)
getexpr = function(s,g)substring(s,g,g+attr(g,'match.length')-1)
gg = gregexpr(mypattern, datalines)
mat...