The R Project SVN R

Rev

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

Rev 80015 Rev 81836
Line 34... Line 34...
34 
}) # failed in R < 4.1.0
 34 
}) # failed in R < 4.1.0
35 
 
 35 
 
36 
## \usage: keep quoted "\\\\dots", but _do_ translate formal \dots arg
 36 
## \usage: keep quoted "\\\\dots", but _do_ translate formal \dots arg
37 
Rdsnippet <- tempfile()
 37 
Rdsnippet <- tempfile()
38 
writeLines(r"(\name{foo}\title{foo}\usage{
 38 
writeLines(r"(\name{foo}\title{foo}\usage{
- 
 
 39 
## keep this comment to ensure a newline at the end
39 
foo(arg = "\\\\dots", \dots)
 40 
foo(arg = "\\\\dots", \dots)
40 
})", Rdsnippet)
 41 
})", Rdsnippet)
41 
Rdobj <- parse_Rd(Rdsnippet)
 42 
Rdobj <- parse_Rd(Rdsnippet)
42 
check_dots_usage <- function(FUN) {
 43 
check_dots_usage <- function(FUN) {
43 
    out <- trimws(grep("foo(", capture.output(FUN(Rdobj)),
 44 
    out <- trimws(grep("foo(", capture.output(FUN(Rdobj)),