Permalink
Browse files

Fix Rd output for aesthetic with no default

Propogated change in aesthetics() where the default is
a character to rd_aesthetics so that the checks are against
a character vector.
  • Loading branch information...
BrianDiggs committed Jan 14, 2013
1 parent c2e51b1 commit d1ae0f6fc4568c8752ab4326f9a39ded8022a95c
Showing with 2 additions and 2 deletions.
  1. +2 −2 R/utilities-help.r
View
@@ -34,9 +34,9 @@ rd_aesthetics <- function(type, name) {
paste("\\strong{", aes$aesthetic, "}", sep=""),
aes$aesthetic),
"}",
- ifelse(laply(aes$default, is.null),
+ ifelse(sapply(aes$default, identical, character(0)),
"",
- paste(" (default value: ", as.character(aes$default), ")", sep="")),
+ paste(" (default value: ", aes$default, ")", sep="")),
collapse = "\n", sep = ""),
"\n}\n", sep = "")
}

0 comments on commit d1ae0f6

Please sign in to comment.