chore: remove explicit return

Author: vedhav

tests/testthat/test-shinytest2-tm_t_crosstable.R

@@ -10,7 +10,7 @@ app_driver_tm_t_crosstable <- function() {
           label = "Select variable:",
           choices = teal.transform::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,
@@ -24,7 +24,7 @@ app_driver_tm_t_crosstable <- function() {
           label = "Select variable:",
           choices = teal.transform::variable_choices(data[["ADSL"]], subset = function(data) {
             idx <- vapply(data, is.factor, logical(1))
-            return(names(data)[idx])
+            names(data)[idx]
           }),
           selected = "SEX",
           multiple = FALSE,