# NOT RUN {
shinyServer(function(input, output, session) {
ds <- shinyDataset("Your dataset name")
freqs <- reactive({
fmla <- as.formula(paste("~", input$varname))
crtabs(fmla, data=ds())
})
})
# }
Run the code above in your browser using DataLab