observe({
input$alphabetise.var.button
isolate({
if ((!is.null(input$alphabetise.var.button) &&
input$alphabetise.var.button > 0)) {
temp <- get.data.set()
col.names <- colnames(temp)
order.col.names <- order(col.names)
order.col.names.dec <- order(col.names, decreasing = TRUE)
if (input$select.alphabetical.order == "A(a) To Z(z)") {
temp <- temp[, order.col.names]
}
if (input$select.alphabetical.order == "Z(z) To A(a)") {
temp <- temp[, order.col.names.dec]
}
if (!is.null(temp)) {
updatePanel$datachanged <- updatePanel$datachanged + 1
values$data.set <- as.data.frame(temp,
col.names = col.names(values$data.set)
)
values <- sample_if_cas(rvalues = values, d = values$data.set)
}
}
})
})
output$alphabetise.variables <- renderUI({
get.data.set()
isolate({
alphabetise.variables(get.data.set())
})
})
output$alphabetise.variables.table <- renderDT(
{
get.data.set.display()
},
options = list(
lengthMenu = c(5, 30, 50), pageLength = 5,
columns.defaultContent = "NA", scrollX = T
)
)
output$alphabetise.var.data.sample.info <- renderText({
sample_info_cas()
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.