R/mod_Home.R

In cgtc/RebelAnalysis: Luminex Analysis App

#' Home UI Function
#'
#' @description A shiny Module.
#'
#' @param id,input,output,session Internal parameters for {shiny}.
#'
#' @noRd
#'
#' @importFrom shiny NS tagList
mod_Home_ui <- function(id){
  # ns <- NS(id)
  tagList(
    fluidPage(
      fluidRow(
        column(
          width = 6,
          h2("CGTC Luminex Web App"),
          h4("Welcome to the Luminex data analysis WebApp!"),
          h4("Version 1.0.0 Beta"),
          br(),
          h3("Instructions"),
          tags$li(
            tags$li("To begin, click on the 'Analysis' tab and upload your data"),
            tags$li("Inspect analysed data"),
            tags$li("Download the full analysed data and the report document"),
            br(),
            br(),
            h3("Notes"),
            tags$li("Please contact us for feature requests or for bug reports"),
            br(),
            br(),
            h3("Data Format"),
            tags$li("Use the standard export from the instrument"),
            tags$li("The data header should be on sheet one at line 353, with the actual data starting from line 354."),
            tags$li("Your standards should be named 'Standard' or 'Background' and then a number from 0-9."),
            h5("Example: Background0, Standard1, Standard2, etc"),
            br(),
            tags$li("Your samples should be named in the following format:"),
            h5("SAMPLENAME DX 1:Y"),
            h6("Where SAMPLENAME is your sample's ID, DX is the day identifier, e.g. D1 or D5 for day 1 or day 5 respectively, and 1:Y is the dilution identifier, e.g. 1:4 or 1:32 for a 1:4 or a 1:32 dilution respectively"),
            h5("Example: MySample D3 1:4, MyOtherSample D1 1:32"),
            br(),
            tags$li("Your cytokine readings should be one per column."),
            br(),
            br()
          ),
        )
      )
    )
  )
}

#' Home Server Functions
#'
#' @noRd
mod_Home_server <- function(id){
  moduleServer( id, function(input, output, session){
    # ns <- session$ns

  })
}