inst/shiny-examples/protGear_interactive/global.R

In Keniajin/protGear: Protein Micro Array Data Management and Interactive Visualization

library(shiny)
library(shinydashboard)
library(magrittr)
library(protGear)
"%ni%" <- Negate('%in%')

# HELP & INTRO DATA ---------------------------------------------------------------

#steps <- readr::read_csv2("help.csv")
steps <- system.file("shiny-examples/protGear_interactive/", "help.csv", package="protGear")
steps <- readr::read_csv2(steps)
#intro <- read_csv2("intro.csv")


# FLUID DESIGN FUNCTION ---------------------------------------------------

fluid_design <- function(id, w, x, y, z) {
  fluidRow(
    div(
      id = id,
      column(
        width = 6,
        uiOutput(w),
        uiOutput(y)
      ),
      column(
        width = 6,
        uiOutput(x),
        uiOutput(z)
      )
    )
  )
}