Merge pull request #24 from koolerjaebee/master

Add pvalue in box,bar,line at jsBasicGadget
jinseob2kim · Mar 27, 2024 · fb52eb3 · fb52eb3
2 parents 9d1559b + b5730cd
commit fb52eb3
Showing 1 changed file with 6 additions and 0 deletions.
diff --git 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")
           )