inst/extdata/shiny/ui_body_introduction.R

get_introduction_tabItem_ui <- function(){
  body_introduction_tabItem <- tabItem("introduction",
            fluidRow(
              box(
                title = "Introduction",
                width = 12,
                status = "primary",
                collapsible = TRUE,
                collapsed = FALSE,
                includeMarkdown("index.md")
              )
            )
    )
}

Try the BioInstaller package in your browser

Any scripts or data that you put into this service are public.

BioInstaller documentation built on May 1, 2019, 11:17 p.m.