The R Project SVN R-packages

Rev

Rev 7747 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7747 Rev 7987
Line 151... Line 151...
151 
# From Marsh Feldman on R-help, possibly
 151 
# From Marsh Feldman on R-help, possibly
152 
# https://stat.ethz.ch/pipermail/r-help/2010-March/232586.html
 152 
# https://stat.ethz.ch/pipermail/r-help/2010-March/232586.html
153 
# That site was non-responsive in June 2015,
 153 
# That site was non-responsive in June 2015,
154 
# and this does not do a good job on the current table.
 154 
# and this does not do a good job on the current table.
155 
 
 155 
 
156 
\donttest{
 156 
\dontrun{
157 
doc <- "http://www.nber.org/cycles/cyclesmain.html"
 157 
doc <- "http://www.nber.org/cycles/cyclesmain.html"
158 
# The  main table is the second one because it's embedded in the page table.
 158 
# The  main table is the second one because it's embedded in the page table.
159 
tables <- getNodeSet(htmlParse(doc), "//table")
 159 
tables <- getNodeSet(htmlParse(doc), "//table")
160 
xt <- readHTMLTable(tables[[2]],
 160 
xt <- readHTMLTable(tables[[2]],
161 
                    header = c("peak","trough","contraction",
 161 
                    header = c("peak","trough","contraction",