From 8abc862aef7f9eddc7ec093712fc1d25c11aa934 Mon Sep 17 00:00:00 2001
From: "github-actions[bot]" <github-actions[bot]@users.noreply.github.com>
Date: Fri, 16 Feb 2024 10:26:11 +0000
Subject: [PATCH] Apply automatic stylistic changes

---
 R/jsBasicGadget.R | 52 ++++++++++++++++++++++-------------------------
 1 file changed, 24 insertions(+), 28 deletions(-)

diff --git a/R/jsBasicGadget.R b/R/jsBasicGadget.R
index 9c16eaa2..2f978eca 100644
--- a/R/jsBasicGadget.R
+++ b/R/jsBasicGadget.R
@@ -278,15 +278,14 @@ 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"
             )
-
           )
         )
       ),
@@ -294,11 +293,11 @@ jsBasicGadget <- function(data, nfactor.limit = 20) {
         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,15 +1070,14 @@ 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"
             )
-
           )
         )
       ),
@@ -1088,11 +1085,11 @@ jsBasicExtAddin <- function(nfactor.limit = 20, max.filesize = 2048) {
         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() {