improvement

zhunianfu · Aug 2, 2021 · 7db0207 · 7db0207
1 parent 5e9e9ee
commit 7db0207
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 4 deletions.
diff --git a/server.R b/server.R
@@ -440,7 +440,8 @@ server <- function(input, output) {
           # t-test will be performed
           t.test(y ~ rct_df_data()[[1]], na.action = na.omit, paired = TRUE) %>% 
           broom::glance() %>%
-          select('statistic', 'p.value', 'method')
+          select('statistic', 'p.value', 'method'),
+        stop("Find an issue in `rct_compare_ls` section, please note chenhan28@gmail.com")
       )
     }) %>%
       bind_rows() %>%

diff --git a/ui.R b/ui.R
@@ -167,9 +167,6 @@ ui <- fluidPage(
                    'Comparisons',
                    h3("Select statistic methods"),
                    fluidRow(column(width=12,uiOutput("method_determine_select"))),
-                   # helpText("Select statistic methods automatically is not always suitable for every case.
-                   #          Histgram and Q-Q plot were also helpful for method selection."),                   fluidRow(column(width=12,uiOutput("method_determine_select"))),
-                   # h3("Select statistic methods manually"),
                    helpText("Select statistic methods automatically is not always suitable for every case.
                             Histgram and Q-Q plot were also helpful for method selection."),
                    h3('Significance test between groups'),