Return an empty list with <lints> class in addin (#2557)

IndrajeetPatil · web-flow · commit 871fee3e4371 · 2024-04-17T10:14:26.000+05:30
diff --git a/R/addins.R b/R/addins.R
@@ -5,7 +5,8 @@ addin_lint <- function() {
   }
   filename <- rstudioapi::getSourceEditorContext()
   if (filename$path == "") {
-    return("Current source has no path. Please save before continue")
+    warning("Current source has no path. Please save before continuing.", call. = FALSE)
+    return(flatten_lints(list()))
   }
 
   lint(filename$path)

Original file line number	Diff line number	Diff line change
`@@ -5,7 +5,8 @@ addin_lint <- function() {`
`5`	`5`	`}`
`6`	`6`	`filename <- rstudioapi::getSourceEditorContext()`
`7`	`7`	`if (filename$path == "") {`
`8`		`- return("Current source has no path. Please save before continue")`
	`8`	`+ warning("Current source has no path. Please save before continuing.", call. = FALSE)`
	`9`	`+ return(flatten_lints(list()))`
`9`	`10`	`}`
`10`	`11`
`11`	`12`	`lint(filename$path)`