From cd2f42455e8c107c4a1775a0872a7031ffab6aa9 Mon Sep 17 00:00:00 2001
From: jaewoong heo <koolerjaebee@gmail.com>
Date: Wed, 27 Mar 2024 11:59:32 +0900
Subject: [PATCH] chores: add box,bar,line in jsBasicGadget

---
 R/jsBasicGadget.R | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/R/jsBasicGadget.R b/R/jsBasicGadget.R
index 55867607..e6676fdc 100644
--- a/R/jsBasicGadget.R
+++ b/R/jsBasicGadget.R
@@ -198,6 +198,7 @@ jsBasicGadget <- function(data, nfactor.limit = 20) {
             boxUI("box")
           ),
           mainPanel(
+            optionUI("box"),
             withLoader(plotOutput("box_plot"), type = "html", loader = "loader6"),
             ggplotdownUI("box")
           )
@@ -210,6 +211,7 @@ jsBasicGadget <- function(data, nfactor.limit = 20) {
             barUI("bar")
           ),
           mainPanel(
+            optionUI("bar"),
             withLoader(plotOutput("bar_plot"), type = "html", loader = "loader6"),
             ggplotdownUI("bar")
           )
@@ -222,6 +224,7 @@ jsBasicGadget <- function(data, nfactor.limit = 20) {
             lineUI("line")
           ),
           mainPanel(
+            optionUI("line"),
             withLoader(plotOutput("line_plot"), type = "html", loader = "loader6"),
             ggplotdownUI("line")
           )
@@ -1025,6 +1028,7 @@ jsBasicExtAddin <- function(nfactor.limit = 20, max.filesize = 2048) {
             boxUI("box")
           ),
           mainPanel(
+            optionUI("box"),
             withLoader(
               plotOutput("box_plot"),
               type = "html",
@@ -1041,6 +1045,7 @@ jsBasicExtAddin <- function(nfactor.limit = 20, max.filesize = 2048) {
             barUI("bar")
           ),
           mainPanel(
+            optionUI("bar"),
             withLoader(plotOutput("bar_plot"), type = "html", loader = "loader6"),
             ggplotdownUI("bar")
           )
@@ -1053,6 +1058,7 @@ jsBasicExtAddin <- function(nfactor.limit = 20, max.filesize = 2048) {
             lineUI("line")
           ),
           mainPanel(
+            optionUI("line"),
             withLoader(plotOutput("line_plot"), type = "html", loader = "loader6"),
             ggplotdownUI("line")
           )