feat: hide widgets using module arg

Author: vedhav

NAMESPACE

@@ -25,6 +25,7 @@ export(tm_missing_data)
 export(tm_outliers)
 export(tm_p_bargraph)
 export(tm_p_lineplot)
+export(tm_p_scatterlineplot)
 export(tm_p_scatterplot)
 export(tm_p_spiderplot)
 export(tm_p_swimlane)

R/tm_p_scatterplot.R

@@ -6,7 +6,8 @@ tm_p_scatterplot <- function(label = "Scatter Plot",
                              y_var,
                              color_var,
                              point_colors = character(0),
-                             transformators = list()) {
+                             transformators = list(),
+                             show_widgets = TRUE) {
   module(
     label = label,
     ui = ui_p_scatterplot,
@@ -18,7 +19,8 @@ tm_p_scatterplot <- function(label = "Scatter Plot",
       x_var = x_var,
       y_var = y_var,
       color_var = color_var,
-      point_colors = point_colors
+      point_colors = point_colors,
+      show_widgets = show_widgets
     ),
     transformators = transformators
   )
@@ -27,6 +29,7 @@ tm_p_scatterplot <- function(label = "Scatter Plot",
 ui_p_scatterplot <- function(id) {
   ns <- NS(id)
   bslib::page_fluid(
+    shinyjs::useShinyjs(),
     tags$div(
       shinyWidgets::prettySwitch(
         ns("add_lines"),
@@ -54,7 +57,8 @@ srv_p_scatterplot <- function(id,
                               x_var,
                               y_var,
                               color_var,
-                              point_colors) {
+                              point_colors,
+                              show_widgets) {
   moduleServer(id, function(input, output, session) {
     color_inputs <- colour_picker_srv(
       "colors",
@@ -64,6 +68,11 @@ srv_p_scatterplot <- function(id,
       default_colors = point_colors
     )
 
+    if (!show_widgets) {
+      shinyjs::hide("add_lines")
+      shinyjs::hide("colors")
+    }
+
     plotly_q <- reactive({
       req(color_inputs())
       within(