R/ui/body.R

In urwa/shinyscaffold: A shinydashboard scaffold

#'  shinydashboard UI body.
#'
#'  @return dashboardBody object.
#'  @export

shinyBody <- function () {
  dashboardBody(
    tabItems(
      AddIntroductionTab(tabId = "intro",
                         mainTitle = "Introduction to the App",
                         introText = "Introduction.intro"
                        ),
      AddSimpleTab(tabId = "simpleHist",
                   mainTitle = "Simple Histogram Main Title",
                   introText = "simpleHist.intro",
                   descList = c("simpleHist.desc"),
                   plotList = c("simpleHist.plot")
                  ),
      AddMultiTab(tabId = "multiHist",
                  mainTitle = "Multi Histrogram Main Title",
                  introText = "multiHist.intro",
                  headList = c("Heading 1", "Heading 2", "Heading 3"),
                  descList = c("multiHist.desc1", "multiHist.desc2", "multHist.desc3"),
                  plotList = c("multiHist.plot1", "multiHist.plot2", "multiHist.plot3")
                ),
      AddSimpleTab(tabId = "simpleBar",
                   mainTitle = "Simple Bar Main Title",
                   introText = "simpleBar.intro",
                   descList = c("simpleBar.desc"),
                   plotList = c("simpleBar.plot")
                  ),
      AddMultiTab(tabId = "multiBar",
                  mainTitle = "Multi Bar Main Title",
                  introText = "multiBar.intro",
                  headList = c("Heading 1", "Heading 2", "Heading 3"),
                  descList = c("multiBar.desc1", "multiBar.desc2", "multiBar.desc3"),
                  plotList = c("multiBar.plot1", "multiBar.plot2", "multiBar.plot3")
                 ),
      AddSimpleTab(tabId = "simpleRadar",
                   mainTitle = "Simple Radar Main Title",
                   introText = "simpleRadar.intro",
                   descList = c("simpleRadar.desc"),
                   plotList = c("simpleRadar.plot")
                  ),
      AddSimpleTab(tabId = "simpleRadarComp",
                   mainTitle = "Simple Radar With Comparison Main Title",
                   introText = "simpleRadarComp.intro",
                   descList = c("simpleRadarComp.desc"),
                   plotList = c("simpleRadarComp.plot")
                   ),
      AddMultiTab(tabId = "fancyRadarComp",
                  mainTitle = "Fancy Radar With Comparison Main Title",
                  introText = "fancyRadarComp.intro",
                  headList = c("Heading 1", "Heading 2", "Heading 3", "Heading 4"),
                  descList = c("fancyRadarComp.desc1", "fancyRadarComp.desc2", "fancyRadarComp.desc3", "fancyRadarComp.desc4"),
                  plotList = c("fancyRadarComp.plot1", "fancyRadarComp.plot2", "fancyRadarComp.plot3", "fancyRadarComp.plot4")
                  ),
      AddSimpleTab(tabId = "simpleLine",
                   mainTitle = "Simple Line Main Title",
                   introText = "simpleLine.intro",
                   descList = c("simpleLine.desc"),
                   plotList = c("simpleLine.plot")
                   ),
      AddMultiTab(tabId = "fancyLine",
                  mainTitle = "Fancy Line Main Title",
                  introText = "fancyLine.intro",
                  headList = c("Heading 1", "Heading 2", "Heading 3", "Heading 4"),
                  descList = c("fancyLine.desc1","fancyLine.desc2","fancyLine.desc3","fancyLine.desc4"),
                  plotList = c("fancyLine.plot1","fancyLine.plot2","fancyLine.plot3","fancyLine.plot4")
                  ),
      AddSimpleTab(tabId = "simpleScatter",
                   mainTitle = "Simple Scatter Main Title",
                   introText = "simpleScatter.intro",
                   descList = c("simpleScatter.desc"),
                   plotList = c("simpleScatter.plot")
                   ),
      AddSimpleTab(tabId = "fancyScatter",
                   inputBox = TRUE,
                   descBoxWidth = 4,
                   inputBoxWidth = 3,
                   mainTitle = "Fancy Scatter Main Title",
                   introText = "fancyScatter.intro",
                   descList = c("fancyScatter.desc"),
                   plotList = c("fancyScatter.plot"),
                   inputList = c("fancyScatter.input")
                   ),
      AddSimpleTab(tabId = "simplePie",
                   mainTitle = "Simple Pie Main Title",
                   introText = "simplePie.intro",
                   descList = c("simplePie.desc"),
                   plotList = c("simplePie.plot")
      ),
      AddSimpleTab(tabId = "simpleBox",
                   mainTitle = "Simple Box Main Title",
                   introText = "simpleBox.intro",
                   descList = c("simpleBox.desc"),
                   plotList = c("simpleBox.plot")
                   ),
      AddMultiTab(tabId = "multiBox",
                  mainTitle = "Multi Box Main Title",
                  introText = "multiBox.intro",
                  headList = c("Heading 1", "Heading 2", "Heading 3"),
                  descList = c("multiBox.desc1", "multiBox.desc2", "multiBox.desc3"),
                  plotList = c("multiBox.plot1", "multiBox.plot2", "multiBox.plot3")
                  ),
      AddSimpleTab(tabId = "simpleQuotes",
                   plotBox = FALSE,
                   mainTitle = "Simple Quotes Main Title",
                   introText = "simpleQuotes.intro",
                   descList = c("simpleQuotes.desc")
                   ),
      AddMultiTab(tabId = "multiQuotes",
                  plotBox = FALSE,
                  mainTitle = "Multi Quotes Main Title",
                  introText = "multiQuotes.intro",
                  headList = c("Heading 1", "Heading 2", "Heading 3"),
                  descList = c("multiQuotes.desc1", "multiQuotes.desc2", "multiQuotes.desc3")
                  ),
      AddNetworkTab(tabId = "fullNetwork",
                    mainTitle = "Full Network Main Title",
                    introText = "fullNetwork.intro",
                    paramList = c("fullNetwork.param"),
                    plotList = c("fullNetwork.plot"),
                    sizeId = "fullNetSize",
                    sizeList = list("Uniform" = "uniform", "Team ID" = "TeamID"),
                    colorId = "fullNetColor",
                    colorList = list("ID" = "ID", "Team ID" = "TeamID"),
                    opacityId = "fullNetOpacity"
                    ),
      AddNetworkTab(tabId = "smallNetwork",
                       mainTitle = "Small Network Main Title",
                       introText = "smallNetwork.intro",
                       paramList = c("smallNetwork.param"),
                       plotList = c("smallNetwork.plot"),
                       sizeId = "smallNetSize",
                       sizeList = list("con1" = "cont1", "cont2" = "cont2"),
                       colorId = "smallNetColor",
                       colorList = list("cat1" = "cat1", "cat2" = "cat2"),
                       opacityId = "smallNetOpacity"
                       )
      )
  )
}