panels/E1_CategoricalVariables/1_categorical.variables.ui.R

In iNZightVIT/Lite: iNZight Lite

get.categorical.variables <- function(data.set) {
  if (is.null(data.set)) {
    list(
      list(
        help.display(
          "Categorical variables", "categorical_variables",
          "panels/E1_CategoricalVariables/3_categorical.variables.help.md"
        ),
        br(), HTML("")
      ),
      h1("Please select or import a data set.")
    )
  } else {
    choices <- c(
      "Reorder levels",
      "Collapse levels",
      "Rename levels",
      "Combine categorical"
    )
    list(
      list(
        h5(strong("Categorical variables")),
        selectInput(
          inputId = "categorical_variables_select1",
          label = NULL,
          choices = choices,
          selectize = F,
          multiple = F
        ),
        uiOutput("categorical.side.panel")
      ),
      uiOutput("categorical.main.panel")
    )
  }
}

categorical.variables.panel <- function(data.set) {
  sidebarLayout(
    sidebarPanel(get.categorical.variables(data.set)[[1]]),
    mainPanel(get.categorical.variables(data.set)[[2]])
  )
}

collapse.sidebar.panel <- function(data.set) {
  choices1 <- c()
  choices2 <- c()
  if (!is.null(data.set) && !is.null(ncol(data.set)) && ncol(data.set) > 0) {
    choices1 <- get.categorical.column.names(data.set)
  } else {
    choices1 <- c()
  }
  list(
    selectInput("select.collapse.column", "Choose a variable",
      choices = c("", choices1), multiple = F, selectize = F,
      selected = 1
    ),
    selectInput("select.collapse.item", "Choose two or more levels",
      choices = choices2, multiple = T, selectize = F, size = 7
    ),
    textInput("collapse_variable_newname",
      label = "New variable name",
      value = ""
    ),
    textInput("collapse_level_newname",
      label = "Collapsed level name",
      value = ""
    ),
    actionButton("collapse", "Collapse",
      style = "color: #fff; background-color: #337ab7; border-color: #2e6da4"
    ),
    br(), br(),
    help.display(
      "Collapse Levels", "collapse_levels",
      "panels/E1_CategoricalVariables/5_collapse.levels.help.md"
    ),
    br(), HTML("")
  )
}

collapse.main.panel <- function() {
  list(
    div(verbatimTextOutput("text_collapse_1st")), br(),
    helpText("New levels after input is submitted"),
    div(verbatimTextOutput("text_collapse_2nd"))
  )
}

reorder.sidebar.panel <- function(data.set) {
  choices1 <- c()
  choices2 <- c()
  if (!is.null(data.set) && !is.null(ncol(data.set)) && ncol(data.set) > 0) {
    choices1 <- get.categorical.column.names(data.set)
  } else {
    choices1 <- c()
  }
  list(
    selectInput("select.reorder.column", "Variable to reorder",
      choices = c("", choices1), multiple = F, selectize = F
    ),
    textInput("recorder_variable_newname",
      label = "New variable name",
      value = ""
    ),
    selectInput("recorder_sort_levels", "Sort levels",
      choices = c("by frequency", "manually"), multiple = F,
      selectize = F, selected = 1
    ),
    conditionalPanel(
      "input.recorder_sort_levels == 'manually'",
      selectInput("select.reorder.item", "Select in new Order",
        choices = choices2, multiple = T, selectize = T
      )
    ),
    actionButton("reorder", "Reorder",
      style = "color: #fff; background-color: #337ab7; border-color: #2e6da4"
    ),
    br(), br(),
    help.display("Reorder Levels", "reorder_levels", "panels/E1_CategoricalVariables/4_reorder.levels.help.md"),
    br(), HTML("")
  )
}

reorder.main.panel <- function() {
  verbatimTextOutput(outputId = "text_reorder")
}

combine.sidebar.panel <- function(data.set) {
  choices1 <- c()
  if (!is.null(data.set) && !is.null(ncol(data.set)) && ncol(data.set) > 0) {
    choices1 <- get.categorical.column.names(data.set)
  } else {
    choices1 <- c()
  }
  list(
    # helpText("Select factor columns to combine. All combined
    #         columns will be added as additional column to
    #         the data."),
    selectInput("select.combine.columns",
      "Choose 2 or more variables you want to combine",
      choices = choices1, multiple = T, selectize = F, size = 7
    ),
    actionButton("combine", "Combine",
      style = "color: #fff; background-color: #337ab7; border-color: #2e6da4"
    ),
    br(), br(),
    help.display(
      "Combine Levels", "combine_levels",
      "panels/E1_CategoricalVariables/7_combine.levels.help.md"
    ),
    br(), HTML("")
  )
}

combine.main.panel <- function() {
  list(
    helpText("New levels after input is submitted"), br(),
    div(verbatimTextOutput("text_combine"))
  )
}

rename.levels.sidebar.panel <- function(data.set) {
  choices1 <- c()
  choices2 <- c()
  if (!is.null(data.set) && !is.null(ncol(data.set)) && ncol(data.set) > 0) {
    choices1 <- get.categorical.column.names(data.set)
  } else {
    choices1 <- c()
  }
  list(
    # helpText("Select a column from the first dropdown menu. As many input
    #         variable will appear as there are factors in the selected
    #         column. Rename the factors using the text files next to it."),
    selectInput("select.rename.column", "Choose variable",
      choices = c("", choices1), multiple = F, selectize = F, selected = 1
    ),
    uiOutput(outputId = "rename.factors.inputs"),
    actionButton("rename.levs", "Rename levels",
      style = "color: #fff; background-color: #337ab7; border-color: #2e6da4"
    ),
    br(), br(),
    help.display(
      "Rename Levels", "rename_levels",
      "panels/E1_CategoricalVariables/6_rename.levels.help.md"
    ),
    br(), HTML("")
  )
}