Return shortcut invisibly

hadley · hadley · commit b44ae43974cc · 2017-11-13T19:14:15.000-06:00
diff --git a/R/badge.R b/R/badge.R
@@ -44,7 +44,7 @@ use_depsy_badge <- function() {
 #' @export
 use_badge <- function(badge_name, href, src) {
   if (has_badge(href)) {
-    return(FALSE)
+    return(invisible(FALSE))
   }
 
   img <- paste0("![", badge_name, "](", src, ")")

Original file line number	Diff line number	Diff line change
`@@ -44,7 +44,7 @@ use_depsy_badge <- function() {`
`44`	`44`	`#' @export`
`45`	`45`	`use_badge <- function(badge_name, href, src) {`
`46`	`46`	`if (has_badge(href)) {`
`47`		`- return(FALSE)`
	`47`	`+ return(invisible(FALSE))`
`48`	`48`	`}`
`49`	`49`
`50`	`50`	`img <- paste0("![", badge_name, "](", src, ")")`