The R Project SVN R

Rev

Rev 88222 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 88222 Rev 89662
Line 146... Line 146...
146 
  vv <- capture.output(print(db, doBrowse=FALSE))  # without an error
 146 
  vv <- capture.output(print(db, doBrowse=FALSE))  # without an error
147 
  stopifnot(is.character(vv), length(vv) >= 3) # was wrong (for weeks during devel.)
 147 
  stopifnot(is.character(vv), length(vv) >= 3) # was wrong (for weeks during devel.)
148 
  html <- tools::toHTML(subset(db, is.na(Version))) # emulate doBrowse with query
 148 
  html <- tools::toHTML(subset(db, is.na(Version))) # emulate doBrowse with query
149 
}
 149 
}
150 
## Bug fixes with PR number in 4.0.0.
 150 
## Bug fixes with PR number in 4.0.0.
151 
db4 <- news(Version == "4.0.0" & grepl("^BUG", Category) & grepl("PR#", Text),
 151 
db4 <- news(Version == "4.0.0" & grepl("^Bug", Category) & grepl("PR#", Text),
152 
            db = db)
 152 
            db = db)
153 
nrow(db4)
 153 
nrow(db4)
154 
\dontshow{stopifnot(is.null(attr(db4, "bad")) && nrow(db4) == 25 )}
 154 
\dontshow{stopifnot(is.null(attr(db4, "bad")) && nrow(db4) == 25 )}
155 
## print db4 to show in an HTML browser.
 155 
## print db4 to show in an HTML browser.
156 
 
 156