library(shiny)
library(shinyBS)
library(shinyWidgets)
library(DT)
library(stringi)
source("../application/uitpInput.R")
#source("../application/uitpErrorTab.R")
source("../application/uitpPedigreeBrowser.R")
source("../application/uitpGeneticValueAnalysis.R")
source("../application/uitpSummaryStatistics.R")
source("../application/uitpBreedingGroupFormation.R")
source("../application/uitpPyramidPlot.R")
source("../application/uitpGvAndBgDesc.R")
if (getSiteInfo()$center == "ONPRC") {
source("../application/uitpOripReporting.R")
navbarPageArgs <- list(
title = stri_c("Genetic Management Tools - Version ", getVersion()),
uitpInput,
uitpPedigreeBrowser,
uitpPyramidPlot,
uitpGeneticValueAnalysis,
uitpSummaryStatistics,
uitpBreedingGroupFormation,
# uitpOripReporting,
uitpGvAndBgDesc,
id = "tab_pages"
)
} else {
navbarPageArgs <- list(
title = stri_c("Genetic Management Tools - Version ", getVersion()),
uitpInput,
uitpPedigreeBrowser,
uitpPyramidPlot,
uitpGeneticValueAnalysis,
uitpSummaryStatistics,
uitpBreedingGroupFormation,
uitpGvAndBgDesc,
id = "tab_pages"
)
}
shinyUI(tagList(
tags$head(tags$style(src = "app_style.js")),
#tags$head(tags$script(src = "add_tabs.js")),
# Important! : 'Freshly baked' tabs first enter here.
# uiOutput("navbarPage", style = "display: none;"),
# End Important
do.call(navbarPage, navbarPageArgs)
))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.