panels/E0_ConvertToCategorical/2_convert.to.categorical.server.R

observe({
  input$select.to.convert
  if (req(input$select.to.convert != " ")) {
    updateTextInput(session, "convert_to_name",
      value = paste0(input$select.to.convert, ".cat")
    )
  }
})





observe({
  input$convert_to_categorical_button
  isolate({
    if (!is.null(input$select.to.convert) &&
      input$select.to.convert != "" &&
      !is.null(input$convert_to_name) &&
      !grepl("^\\s*$", input$convert_to_name)) {
      orgVar <- input$select.to.convert
      name <- gsub("\\n+", "", input$convert_to_name, perl = TRUE)
      temp <- iNZightTools::convertToCat(get.data.set(), orgVar, name)
      updatePanel$datachanged <- updatePanel$datachanged + 1
      values$data.set <- temp
      values <- sample_if_cas(rvalues = values, d = temp, new_sample = FALSE)
      ## code history
      code <- tidy_assign_pipe(gsub(
        "get.data.set\\()",
        code.save$name, iNZightTools::code(values$data.set)
      ))
      code.save$variable <- c(code.save$variable, list(c("\n", code, "\n")))
    }
  })
})

output$convert.cate.data.sample.info <- renderText({
  sample_info_cas()
})

output$convert.to.categorical.table <- renderDT(
  {
    input$convert_to_categorical_button
    if (!is.null(values$data.set)) {
      get.data.set.display()
    }
  },
  options = list(
    lengthMenu = c(5, 30, 50), pageLength = 5,
    columns.defaultContent = "NA", scrollX = T
  )
)



output$convert.to.categorical <- renderUI({
  convert.to.categorical.panel()
})
iNZightVIT/Lite documentation built on March 19, 2024, 5:27 a.m.