inst/apps/logreg_gui/server_old.R

In mrkaliv/logreg: Builds a logistic regression one variable at a time

server <- function(input, output, session)
{
  # data to react to
  mydata <- reactive({mtcars})
  
  
  # choose columns to display
  output$myheaders <- renderTable({mtcars[, c("mpg", input$show_vars) ,drop=FALSE]}, colnames = TRUE)

}