R/ui_1_page.R

In ArthurPERE/RNASeqDE:

TableInput <- function(id) {
  ns <- NS(id)

  tagList(
    fileInput(ns("file"), label = "Select data file", accept = c(
      "text/csv",
      "text/comma-separated-values,text/plain",
      ".csv"
    )),
    numericInput(ns("num_skip_line"), "Skip lines", value = 0, min = 0),
    switchInput(ns("header"),
      label = "Header", onLabel = "auto", value = T,
      offLabel = "FALSE", onStatus = "success",
      offStatus = "danger"
    ),
    radioButtons(ns("rad_decimal"), "Decimal:", choices = c(
      Dot = ".",
      Comma = ","
    ))
  )
}


FileInput <- function(id, label, accept) {
  ns <- NS(id)

  fileInput(ns("file"), label, accept = accept)
}


boxParameters <- function(id) {
  ns <- NS(id)

  tagList(
    # Names of the columns
    h3("Names columns"),
    textOutput(ns("colnames")),
    hr(),

    # table Group
    h3("Groups"),
    rHandsontableOutput(ns("group")),
    tableOutput("txt_GRP"),
    hr(),

    # table condtitions
    h3("Conditions"),
    rHandsontableOutput(ns("condition")),
    tableOutput("txt_COND"),
    hr(),

    # table contrast
    h3("Contrast"),
    rHandsontableOutput(ns("contrast")),
    hr(),

    # string for take only those comparison
    h3("Choose the comparisons you want to download"),
    textInput(ns("comparison_choose"), label = NULL, value = "not required"),
    hr(),

    # string for the gene that move only in those conditions
    h3("Choose conparisons for which you are made to download only those genes that move "),
    textInput(ns("comparison_gene"), label = NULL, value = "not required")
  )
}