Apply automatic stylistic changes

jinseob2kim · Feb 16, 2024 · 8abc862 · 8abc862
1 parent 5063c04
commit 8abc862
Showing 1 changed file with 24 additions and 28 deletions.
diff --git a/R/jsBasicGadget.R b/R/jsBasicGadget.R
@@ -278,27 +278,26 @@ jsBasicGadget <- function(data, nfactor.limit = 20) {
         title = "subgroup cox",
         sidebarLayout(
           sidebarPanel(
-            forestcoxUI('Forest')
+            forestcoxUI("Forest")
           ),
           mainPanel(
             withLoader(
-              DTOutput('tablesub'),
+              DTOutput("tablesub"),
               type = "html",
               loader = "loader6"
             )
-
           )
         )
       ),
       tabPanel(
         title = "subgroup regression",
         sidebarLayout(
           sidebarPanel(
-            forestglmUI('Forest_glm')
+            forestglmUI("Forest_glm")
           ),
           mainPanel(
             withLoader(
-              DTOutput('tablesub_glm'),
+              DTOutput("tablesub_glm"),
               type = "html",
               loader = "loader6"
             )
@@ -309,15 +308,14 @@ jsBasicGadget <- function(data, nfactor.limit = 20) {
         title = "subgroup logistic regression",
         sidebarLayout(
           sidebarPanel(
-            forestglmUI('Forest_glmbi')
+            forestglmUI("Forest_glmbi")
           ),
           mainPanel(
             withLoader(
-              DTOutput('tablesub_glmbi'),
+              DTOutput("tablesub_glmbi"),
               type = "html",
               loader = "loader6"
             )
-
           )
         )
       )
@@ -706,17 +704,17 @@ jsBasicGadget <- function(data, nfactor.limit = 20) {
       caption.placement = "top"
     )
 
-    outtable<-forestcoxServer('Forest',data=data,data_label=data.label)
-    output$tablesub<-renderDT({
+    outtable <- forestcoxServer("Forest", data = data, data_label = data.label)
+    output$tablesub <- renderDT({
       outtable()
     })
-    outtable_glm<-forestglmServer('Forest_glm',data=data,data_label=data.label,family='gaussian')
-    output$tablesub_glm<-renderDT({
+    outtable_glm <- forestglmServer("Forest_glm", data = data, data_label = data.label, family = "gaussian")
+    output$tablesub_glm <- renderDT({
       outtable_glm()
     })
 
-    outtable_glmbi<-forestglmServer('Forest_glmbi',data=data,data_label=data.label,family='binomial')
-    output$tablesub_glmbi<-renderDT({
+    outtable_glmbi <- forestglmServer("Forest_glmbi", data = data, data_label = data.label, family = "binomial")
+    output$tablesub_glmbi <- renderDT({
       outtable_glmbi()
     })
     session$onSessionEnded(function() {
@@ -1072,27 +1070,26 @@ jsBasicExtAddin <- function(nfactor.limit = 20, max.filesize = 2048) {
         title = "subgroup cox",
         sidebarLayout(
           sidebarPanel(
-            forestcoxUI('Forest')
+            forestcoxUI("Forest")
           ),
           mainPanel(
             withLoader(
-              DTOutput('tablesub'),
+              DTOutput("tablesub"),
               type = "html",
               loader = "loader6"
             )
-
           )
         )
       ),
       tabPanel(
         title = "subgroup regression",
         sidebarLayout(
           sidebarPanel(
-            forestglmUI('Forest_glm')
+            forestglmUI("Forest_glm")
           ),
           mainPanel(
             withLoader(
-              DTOutput('tablesub_glm'),
+              DTOutput("tablesub_glm"),
               type = "html",
               loader = "loader6"
             )
@@ -1103,15 +1100,14 @@ jsBasicExtAddin <- function(nfactor.limit = 20, max.filesize = 2048) {
         title = "subgroup logistic regression",
         sidebarLayout(
           sidebarPanel(
-            forestglmUI('Forest_glmbi')
+            forestglmUI("Forest_glmbi")
           ),
           mainPanel(
             withLoader(
-              DTOutput('tablesub_glmbi'),
+              DTOutput("tablesub_glmbi"),
               type = "html",
               loader = "loader6"
             )
-
           )
         )
       )
@@ -1350,17 +1346,17 @@ jsBasicExtAddin <- function(nfactor.limit = 20, max.filesize = 2048) {
       caption = "Best cutoff",
       caption.placement = "top"
     )
-    outtable<-forestcoxServer('Forest',data=data,data_label=data.label)
-    output$tablesub<-renderDT({
+    outtable <- forestcoxServer("Forest", data = data, data_label = data.label)
+    output$tablesub <- renderDT({
       outtable()
     })
-    outtable_glm<-forestglmServer('Forest_glm',data=data,data_label=data.label,family='gaussian')
-    output$tablesub_glm<-renderDT({
+    outtable_glm <- forestglmServer("Forest_glm", data = data, data_label = data.label, family = "gaussian")
+    output$tablesub_glm <- renderDT({
       outtable_glm()
     })
 
-    outtable_glmbi<-forestglmServer('Forest_glmbi',data=data,data_label=data.label,family='binomial')
-    output$tablesub_glmbi<-renderDT({
+    outtable_glmbi <- forestglmServer("Forest_glmbi", data = data, data_label = data.label, family = "binomial")
+    output$tablesub_glmbi <- renderDT({
       outtable_glmbi()
     })
     session$onSessionEnded(function() {