panels/D7_AlphabetiseVariables/2_alphabetise.variables-server.R

In iNZightVIT/Lite: iNZight Lite

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()
})