R/prepareMetDataUI.R

In c5sire/fbmet: Provides convenience Tools for Analysis of Multi-environmental Field Trials

#' prepareMetDataUI
#'
#' @param id shiny id
#' @import fbhelp
#' @return shiny fluid row
#' @export
prepareMetDataUI <- function(id){
  shiny::fluidRow(
    column(width = 3,
           #fbhelp::ui_tips("getFieldbooks", "fbmet"),
           h3("Fieldbook selection"),
                shinyFiles::shinyFilesButton('dc_met_fieldbook',
                                             'Fieldbook',
                                            'Please select a set of fieldbooks', TRUE
               ),
             br(),
             #uiOutput("ui_met_parms"),
             uiOutput("ui_met_trt"),
             uiOutput("ui_met_env"),

             uiOutput("ui_met_plt"),
             uiOutput("ui_met_rep"),
             uiOutput("ui_met_gen")
             #
           ),
          column(width = 9,
           DT::dataTableOutput("met_raw")
           )
  )


}