inst/apps/VisualizeBinomHypTest/server.R

In stephanGit/leistungstests: Supplies Functions to calculate 'leistungstests'

# load libraries
library(shiny)
library(ggplot2)
library(dplyr)
library(pwr)
library(binom)
library(knitr)



shinyServer(function(input, output) {

  source(file.path("server", "callbacks.R"), local = TRUE)$value

  output$viualizePropTest <-
    renderPlot(visualizePropTest(output = output, input = input))

  output$powerTest <-
    renderPrint(calcPowerTest(output = output, input = input))

  observeEvent(
    input$insertRow,
    updateAndDisplayData(output = output, input = input)
    )

})