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::convert_to_cat(get.data.set(), orgVar, make_names(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()
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.