chore: remove explicit returns

Author: vedhav

R/tm_outliers.R

@@ -536,12 +536,13 @@ srv_outliers <- function(id, data, reporter, filter_panel_api, outlier_var,
       # this is utils function that converts a %>% NULL %>% b into a %>% b
       remove_pipe_null <- function(x) {
         if (length(x) == 1) {
-          return(x)
+          ans <- x
         }
         if (identical(x[[1]], as.name("%>%")) && is.null(x[[3]])) {
-          return(remove_pipe_null(x[[2]]))
+          ans <- remove_pipe_null(x[[2]])
         }
-        return(as.call(c(x[[1]], lapply(x[-1], remove_pipe_null))))
+        ans <- as.call(c(x[[1]], lapply(x[-1], remove_pipe_null)))
+        ans
       }
 
       qenv <- teal.code::eval_code(

vignettes/decorate-module-output.Rmd

@@ -111,7 +111,7 @@ app <- init(
         select = select_spec(
           choices = variable_choices(data[["ADSL"]], subset = function(data) {
             idx <- !vapply(data, inherits, logical(1), c("Date", "POSIXct", "POSIXlt"))
-            return(names(data)[idx])
+            names(data)[idx]
           }),
           selected = "COUNTRY",
           multiple = TRUE,
@@ -123,7 +123,7 @@ app <- init(
         select = select_spec(
           choices = variable_choices(data[["ADSL"]], subset = function(data) {
             idx <- vapply(data, is.factor, logical(1))
-            return(names(data)[idx])
+            names(data)[idx]
           }),
           selected = "SEX"
         )