#' UI for PVS's analysis of variance
#' Returns user friendly ui
#' @author Omar Benites
#' @param type type of UI element, deault is a tab in a shinydashboard
#' @param title diaply title name
#' @param name UI TabName
#' @export
#'
pvs_anova_ui <- function(type = "tab", title = "PVS Fieldbook Analysis", name = "anova_pvs"){
#shinydashboard::tabItem(tabName = name,
# tabPanel(title, icon = icon("tags", lib = "glyphicon"),
# br(),
# h2(title),
# fluidRow(
# box(
# title = " ", status = "primary", solidHeader = TRUE,
# collapsible = TRUE, width = NULL,
# #tabsetPanel(
# tabBox(width = 12,
#shinydashboard::tabItem(tabName = name,
#tabPanel("PVS Anova", #begin tabset "anova pvs"
tabPanel(title, #begin tabset "anova pvs"
h2(title),
fluidRow(
column(width = 6,
shinyFiles::shinyFilesButton('file_pvs_anova', 'Select File', 'Select a file',FALSE),
infoBoxOutput("pvs_message_anova",width = NULL),
uiOutput("sheet_pvs_anova"),
# selectInput(inputId = 'design_pvs_anova', label = 'Select statistical design of your experiment', choices =
# c(#"Completely Randomized Design (CRD)",
# "Randomized Complete Block Design (RCBD)"
# ),
# selected = "Randomized Complete Block Design (RCBD)",
# selectize=FALSE),
# shiny::conditionalPanel(
# condition = "input.design_pvs_anova == 'Randomized Complete Block Design (RCBD)'",
# uiOutput("genotypes_pvs_anova"),
# uiOutput("trait_pvs_anova"),
# ),
# shiny::conditionalPanel(
# condition =
# #"input.design_single == 'Alpha Design(0,1) (AD)'|
# "input.design_pvs_anova == 'Randomized Complete Block Design (RCBD)'",
uiOutput("pvs_anova_genotypes"),
shiny::conditionalPanel(
condition = "input.pvs_anova_sheet!='summary_global'",
uiOutput("pvs_anova_rep")#,
),
uiOutput("pvs_anova_trait"),
radioButtons(inputId="format_pvs_anova", label="Report format", choices= c("html","word"),
selected = "html", inline = TRUE, width = NULL),
actionButton(inputId = "button_pvs_anova", label= "Analyze", icon = icon("play-circle"),
width = NULL,height = NULL),
br(),
shiny::wellPanel(
shiny::HTML("<b> </b>"),
shiny::textOutput("pvs_anova_fail_message")
)
)#end column
)#, end fluidow
)
# )#,#end tab Panel "anova pvs"
# )#End data_processing tabItem
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.