R/mod_sse_ttest_ui.R

In CTU-Basel/shinysse: Sample size estimation demo shiny app

#' Shiny module UI function for the display of sse for t-test
#'
#' Plots results of the power.t.test for the two-sample or paired t-test.
#'
#' @seealso \code{\link{sse_ttest}}
#'
sse_ttest_ui <- function(id, label){
  box_width <- 3
  box_height <- 190
  ns <- NS(id)
  tabItem(label,
          br(), br(),
          h2("T - Test based sample size estimation"),
          fluidPage(
            fluidRow(
              br(), br(),
              p("")
            ),
            fluidRow(
              box(
                radioButtons(ns("in_type"), "Select a t-test type:", c("two-sample", "paired")),
              )
            ),
            fluidRow(
              box(
                title = "Power",
                radioButtons(ns("in_power"), "Select a power:", c(0.7, 0.8, 0.9, 0.95)),
                width = box_width,
                height = box_height
              ),
              box(
                title = "Significance level",
                radioButtons(ns("in_alpha"), HTML("Select a significance (&alpha;) level:"), c(0.01, 0.025, 0.05)),
                width = box_width,
                height = box_height
              ),
              box(
                title = "Effect size",
                sliderInput(ns("in_slider2"), "Select expected effect size:", 1, 50, 40),
                width = box_width,
                height = box_height
              ),
              box(
                title = "Standard deviation",
                sliderInput(ns("in_slider1"), "Select expected standard deviation:", 1, 80, 20),
                width = box_width,
                height = box_height
              )
            ),
            fluidRow(
              box(
                plotOutput(ns("out_plot1"), height = 250 * 2),
                width = 12,
                height = 250 * 2 + 20
              ),
            )
          )
  )
}