lintfix

Author: smritia

R/ae_forestplot.R

@@ -246,7 +246,7 @@ ae_forest_plot <-
         )
       })
     # Return single level list
-    return(flatten(nested_plots))
+    flatten(nested_plots)
   }
 
 #' Highlight Significant p-value points in forest plot

R/ae_pre_processor.R

@@ -166,7 +166,7 @@ ae_pre_processor <- function(datain,
   ################### ENDax SEV/CTC##############
 
   # Return processed dataframe and filter conditions
-  return(list(data = ungroup(data_pro), a_subset = filters))
+  list(data = ungroup(data_pro), a_subset = filters)
 }
 
 #' Create filter condition for Adverse Events from keyword

R/ae_volcano_plot.R

@@ -194,7 +194,7 @@ ae_volcano_plot <- function(datain,
         )
       )
   }
-  return(gplot)
+  gplot
 }
 
 #' Volcano Plot axis Options
@@ -276,8 +276,8 @@ Favors {trt2_label} (N={N2}) --->\n{statistic}"
   }
   refval <- ifelse(grepl("Ratio", statistic), 1, 0)
   xref <- c(refval, refval - xref_offset, refval + xref_offset)
-  return(list(
+  list(
     xaxis_label = xlab, yaxis_label = ylab,
     ylinearopts = ylinearopts, yaxis_scale = ytrans, xref = xref
-  ))
+  )
 }

R/bar_plot.R

@@ -147,5 +147,5 @@ bar_plot <- function(datain,
     g_plot <- g_plot + coord_flip()
   }
   message("Bar Plot Success")
-  return(g_plot)
+  g_plot
 }

R/box_plot.R

@@ -183,5 +183,5 @@ box_plot <- function(datain,
       )
   }
   message("Box Plot Success")
-  return(g_plot)
+  g_plot
 }

R/event_interval.R

@@ -168,5 +168,5 @@ interval_plot <- function(datain,
     splotly$x$data[[i]]$legendgroup <- splotly$x$data[[i]]$name
     if (!legdf$is_first[[i]]) splotly$x$data[[i]]$showlegend <- FALSE
   }
-  return(list(plot = gplot, ptly = splotly, rpt_data = ad_plot))
+  list(plot = gplot, ptly = splotly, rpt_data = ad_plot)
 }

R/forest_plot.R

@@ -135,7 +135,7 @@ forest_plot_base <- function(datain,
         alpha = 0.5
       )
   }
-  return(gplot)
+  gplot
 }
 
 #' Scatter plot to be included within forest plot
@@ -254,7 +254,7 @@ forest_plot_scatter <- function(datain,
         alpha = 0.5
       )
   }
-  return(gplot)
+  gplot
 }
 
 #' Display combined Forest Plot
@@ -399,5 +399,5 @@ forest_display <- function(plot_list,
       rel_heights = c(0.85, 0.075, 0.075)
     )
   }
-  return(combine_plot)
+  combine_plot
 }

R/graph_utils.R

@@ -638,8 +638,8 @@ series_leg_lab <- function(datain,
                            series_var = "TRTVAR",
                            series_labelvar = "TRTTXT") {
   if (series_labelvar != series_var && is.factor(datain[[series_labelvar]])) {
-    return(sort(unique(datain[[series_labelvar]])))
+    sort(unique(datain[[series_labelvar]]))
   } else {
-    return(waiver())
+    waiver()
   }
 }

R/mcatstat.R

@@ -327,5 +327,5 @@ calc_denom <- function(counts,
     df <- df |>
       mutate(CVALUE = ifelse(FREQ == 0, "0", glue(cstat)))
   }
-  return(df |> ungroup())
+  df |> ungroup()
 }

R/msumstat.R

@@ -163,5 +163,5 @@ msumstat <- function(datain = NULL,
     mutate(DPTVALN = as.numeric(fct_inorder(.data[["DPTVAL"]])))
 
   message("msum success")
-  return(list(tsum = data_long, gsum = data_wide))
+  list(tsum = data_long, gsum = data_wide)
 }