panels/E0_ConvertToCategorical/1_convert.to.categorical.ui.R

In iNZightVIT/Lite: iNZight Lite

convert.to.categorical.sidebar <- function() {
  list(
    h5(strong("Select a numeric variable to create a categorical version of that variable")),
    selectInput(
      inputId = "select.to.convert",
      label = "Select variable",
      choices = c(" ", get.numeric.column.names(get.data.set())),
      multiple = F,
      selectize = FALSE
    ),
    textInput("convert_to_name",
      label = "Type name for the new variable",
      value = ""
    ),
    actionButton("convert_to_categorical_button", "Update data",
      style = "color: #fff; background-color: #337ab7; border-color: #2e6da4"
    )
  )
}

convert.to.categorical.panel <- function() {
  if (is.null(get.data.set())) {
    sidebarLayout(
      sidebarPanel(),
      mainPanel(
        h1("Please select or import a data set.")
      )
    )
  } else {
    sidebarLayout(
      sidebarPanel(convert.to.categorical.sidebar()),
      mainPanel(
        textOutput("convert.cate.data.sample.info"), br(), br(),
        DTOutput("convert.to.categorical.table")
      )
    )
  }
}