inst/shinyApp/SHINY.RFATE_UI.panel1.tab2.R

In leca-dev/RFate: FATE with R

tabPanel(title = HTML("<span class='tabPanel_title'>2. Pairwise distance</span>")
         , value = "panel.distance"
         , fluidRow(
           column(12
                  , br()
                  , radioButtons(inputId = "choice.dominant"
                                 , label = param.style("Use dominant species...")
                                 , choices = c("from dominant selection"
                                               , "from file")
                                 , selected = "from dominant selection"
                                 , inline = TRUE
                                 , width = "100%")
                  , br()
                  , uiOutput(outputId = "UI.species.selected")
                  , fileInput(inputId = "species.niche.distance"
                              , label = NULL
                              , buttonLabel = param.style("species.niche.distance")
                              , multiple = FALSE
                              , accept = c("text/csv",
                                           "text/comma-separated-values,text/plain",
                                           ".csv",
                                           ".RData")
                              , width = "100%")
           )
         ) ## END fluidRow
         , fluidRow(
           column(4
                  , checkboxInput(inputId = "doRuleWeights"
                                  , label = param.style("doRuleWeights")
                                  , value = FALSE
                                  , width = "100%")
           )
           , column(8, uiOutput(outputId = "UI.opt.weights"))
         ) ## END fluidRow
         , fluidRow(
           column(12
                  , sliderInput(inputId = "opt.maxPercent.NA"
                                , label = param.style("opt.maxPercent.NA")
                                , min = 0
                                , max = 1
                                , value = 0
                                , step = 0.05
                                , width = "100%")
                  , sliderInput(inputId = "opt.maxPercent.similarSpecies"
                                , label = param.style("opt.maxPercent.similarSpecies")
                                , min = 0
                                , max = 1
                                , value = 0.25
                                , step = 0.05
                                , width = "100%")
                  , numericInput(inputId = "opt.min.sd"
                                 , label = param.style("opt.min.sd")
                                 , min = 0
                                 , value = 0.3
                                 , width = "100%")
           )
         ) ## END fluidRow
         , fluidRow(
           column(12
                  , br()
                  , actionButton(inputId = "compute.distance"
                                 , label = "Compute pairwise distance"
                                 , icon = icon("ruler")
                                 , width = "100%"
                                 , style = button.style.action
                  ) %>% helper(type = "inline"
                               , title = "Computation of species pairwise distance"
                               , size = "l"
                               , content = help.HTML(paste0(path.reference, "PRE_FATE.speciesDistance.html"))
                  )
           )
         ) ## END fluidRow
) ## END tabPanel (Pairwise distance)