panels/E2_NumericVariables/1_numeric.variables.ui.R

In iNZightVIT/Lite: iNZight Lite

numeric.variables.panel <- function(data.set) {
  temp <- NULL
  if (is.null(data.set)) {
    temp <- list(
      list(
        help.display(
          "Numeric variables", "numeric_variables",
          "panels/E2_NumericVariables/3_numeric.variables.help.md"
        ),
        br(), HTML("")
      ),
      h1("Please select or import a data set.")
    )
  } else {
    choices <- c(
      "Transform variables",
      "Standardise variables",
      "Form class intervals",
      "Rank numeric",
      "Convert to categorical type"
    )
    temp <- list(
      list(
        h5(strong("Numeric variables")),
        selectInput(
          inputId = "numeric_variables_select1",
          label = NULL,
          choices = choices,
          selectize = F
        ),
        conditionalPanel(
          "input.numeric_variables_select1=='Transform variables'",
          uiOutput("transform.columns.side")
        ),
        conditionalPanel(
          "input.numeric_variables_select1=='Standardise variables'",
          uiOutput("standardise.variables.side")
        ),
        conditionalPanel(
          "input.numeric_variables_select1=='Form class intervals'",
          uiOutput("form.class.interval.side")
        ),
        conditionalPanel(
          "input.numeric_variables_select1=='Rank numeric'",
          uiOutput("rank.numeric.side")
        ),
        conditionalPanel(
          "input.numeric_variables_select1=='Convert to categorical type'",
          uiOutput("convert.to.cate.side")
        )
      ),
      list(
        conditionalPanel(
          "input.numeric_variables_select1=='Transform variables'",
          uiOutput("transform.columns.main")
        ),
        conditionalPanel(
          "input.numeric_variables_select1=='Standardise variables'",
          textOutput("standardise.var.data.sample.info"), br(), br(),
          DTOutput("standardise.variables.table")
        ),
        conditionalPanel(
          "input.numeric_variables_select1=='Form class intervals'",
          uiOutput("form.class.interval.main")
        ),
        conditionalPanel(
          "input.numeric_variables_select1=='Rasamnk numeric'",
          uiOutput("rank.numeric.main")
        ),
        conditionalPanel(
          "input.numeric_variables_select1=='Convert to categorical type'",
          textOutput("convert.to.cate.data.sample.info"), br(), br(),
          DTOutput("convert.to.cate.table")
        )
      )
    )
  }
  if (!is.null(temp)) {
    sidebarLayout(
      sidebarPanel(temp[[1]]),
      mainPanel(temp[[2]])
    )
  }
}

get.transform.sidebar <- function(data.set) {
  choice1 <- colnames(data.set)
  type <- unname(sapply(data.set, class))
  list(
    selectInput("select.columns.transform", "Select Columns",
      choices = choice1[type %in% c("numeric", "integer")],
      multiple = F, selectize = F
    ),
    selectInput("select.transform", "Select Transformation",
      choices = c(
        "LOG (e)" = "log", "LOG (10)" = "log10",
        "EXPONENTIAL" = "exp", "SQUARE (X^2)" = "square",
        "SQUARE ROOT" = "sqrt", "RECIPROCAL (1/X)" = "reciprocal"
      ),
      multiple = F
    ),
    actionButton("transform", "Transform",
      style = "color: #fff; background-color: #337ab7; border-color: #2e6da4"
    ), br(), br(), textOutput("status"), br(), br(),
    help.display(
      "Modify data", "transform_columns",
      "panels/E2_NumericVariables/4_transform.variables.help.md"
    ), br()
  )
}

get.transform.main <- function() {
  list(
    textOutput("table_part.data.sample.info"), br(), br(),
    DTOutput(outputId = "table_part")
  )
}

get.form.class.interval.side <- function(data.set) {
  list(
    useShinyalert(),
    selectInput(
      inputId = "form.class.interval.column.select",
      label = "Choose variable",
      choices = get.numeric.column.names(data.set),
      selected = 1
    ),
    uiOutput("form.class.interval.name"),
    sliderInput(
      inputId = "form_class_interval_number",
      label = "Number of intervals",
      min = 2, max = 20, value = 2, step = 1
    ),
    fixedRow(
      column(6, radioButtons(
        inputId = "form_class_interval_new_level_name",
        label = "New level names:",
        choices = c("(open left, closed right]", "[closed left, open right)"),
        selected = "(open left, closed right]"
      )),
      column(6, radioButtons(
        inputId = "form_class_interval_method",
        label = "Method:",
        choices = c(
          "Equal width intervals",
          "Equal count intervals", "Specified intervals"
        ),
        selected = "Equal width intervals"
      ))
    ),
    uiOutput("form_class_interval_specified_interval"),
    br(),
    actionButton(
      inputId = "form.class.interval.submit",
      label = "Proceed",
      style = "color: #fff; background-color: #337ab7; border-color: #2e6da4"
    ), br(), br()
  )
}

get.form.class.interval.main <- function() {
  list(
    textOutput("form.class.data.sample.info"), br(), br(),
    DTOutput("form.class.interval.table")
  )
}



rank.numeric.sidebar <- function(data.set) {
  list(
    selectInput("rank.numeric.select.column",
      label = "Rank the numerical variables X (vector, matrix)",
      multiple = T,
      choices = get.numeric.column.names(data.set),
      selectize = F,
      size = 7
    ),
    actionButton("rank.numeric.submit",
      label = "Rank",
      style = "color: #fff; background-color: #337ab7; border-color: #2e6da4"
    ),
    br(), br(),
    help.display(
      "Rank Numeric", "rank_numeric",
      "panels/E2_NumericVariables/6_rank.numeric.help.md"
    )
  )
}

rank.numeric.main <- function() {
  list(
    textOutput("rank.numeric.data.sample.info"), br(), br(),
    DTOutput("rank.numeric.table")
  )
}