inst/shinyApp/SHINY.RFATE_UI.panel1.R

In leca-dev/RFate: FATE with R

tabPanel(title =  HTML("<span class='panel_title'><i class='fa-solid fa-object-group'></i> Plant Functional Groups</span>")
         , value = "panel1"
         , sidebarLayout(
           
           # Inputs
           sidebarPanel(
             width = 12,
             style = panel.style,
             withMathJax(),
             
             br(),
             fluidRow(
               column(5
                      , div(id = "help1_2"
                            , fileInput(inputId = "species.observations"
                                        , label = NULL
                                        , buttonLabel = param.style("species.observations")
                                        , multiple = FALSE
                                        , accept = c("text/csv",
                                                     "text/comma-separated-values,text/plain",
                                                     ".csv")
                                        , width = "100%")
                      )
               )
               , column(5
                        , div(id = "help1_3"
                              , fileInput(inputId = "species.traits"
                                          , label = NULL
                                          , buttonLabel = param.style("species.traits")
                                          , multiple = FALSE
                                          , accept = c("text/csv",
                                                       "text/comma-separated-values,text/plain",
                                                       ".csv")
                                          , width = "100%")
                        )
               )
               , column(2
                        , actionButton(inputId = "HELP.panel1"
                                       , label = "Need some help"
                                       , icon = icon("circle-question")
                                       , width = "100%"
                                       , style = button.style.help))
             ) ## END fluidRow
           ) ## END sidebarPanel
           
           # Output
           , mainPanel(
             width = 12,
             fluidRow(
               column(4,
                      wellPanel(id = "pfg.panel1"
                                , style = border.style
                                , tabsetPanel(
                                  source("SHINY.RFATE_UI.panel1.tab1.R", local = TRUE)$value
                                  , source("SHINY.RFATE_UI.panel1.tab2.R", local = TRUE)$value
                                  , source("SHINY.RFATE_UI.panel1.tab3.R", local = TRUE)$value
                                ) ## END tabsetPanel
                      ) ## END wellPanel
               )
               , column(8,
                        wellPanel(id = "pfg.panel2"
                                  , style = border.style
                                  , tabsetPanel(
                                    tabPanel(title = HTML("<span class='tabPanel_title'>Graphics</span>")
                                               , value = "panel.graphics"
                                               , fluidRow(
                                                 column(11
                                                        , br()
                                                        , uiOutput(outputId = "UI.pfg.browser")
                                                 )
                                                 , column(1
                                                          , br()
                                                          , br()
                                                          , br()
                                                          , shinyjs::disabled(
                                                            actionButton(inputId = "pfg.go.left"
                                                                         , label = ""
                                                                         , icon = icon("circle-arrow-left")
                                                                         , width = "100%"
                                                                         , style = button.style.help)
                                                          )
                                                          , br()
                                                          , br()
                                                          , shinyjs::disabled(
                                                            actionButton(inputId = "pfg.go.right"
                                                                         , label = ""
                                                                         , icon = icon("circle-arrow-right")
                                                                         , width = "100%"
                                                                         , style = button.style.help)
                                                          )
                                                 )
                                               ) ## END fluidRow
                                    ) ## END tabPanel
                                    , tabPanel(title = HTML("<span class='tabPanel_title'>Observations</span>")
                                             , value = "panel.observations"
                                             , fluidRow(
                                               column(12
                                                      , wellPanel(style = panel.style.scrollY
                                                                  , shinyjs::hidden(
                                                                    dataTableOutput(outputId = "table.observations"
                                                                                    , width = "100%"
                                                                                    , height = "300px")
                                                                  )
                                                      )
                                               )
                                             ) ## END fluidRow
                                    ) ## END tabPanel
                                    , tabPanel(title = HTML("<span class='tabPanel_title'>Traits (species)</span>")
                                               , value = "panel.traits.sp"
                                               , fluidRow(
                                                 column(12
                                                        , wellPanel(style = panel.style.scrollY
                                                                    , shinyjs::hidden(
                                                                      dataTableOutput(outputId = "table.traits.sp"
                                                                                      , width = "100%"
                                                                                      , height = "600px")
                                                                    )
                                                        )
                                                 )
                                               ) ## END fluidRow
                                    ) ## END tabPanel
                                    , tabPanel(title = HTML("<span class='tabPanel_title'>Traits (PFG)</span>")
                                               , value = "panel.traits.pfg"
                                               , fluidRow(
                                                 column(12
                                                        , wellPanel(style = panel.style.scrollY
                                                                    , shinyjs::hidden(
                                                                      dataTableOutput(outputId = "table.traits.pfg"
                                                                                      , width = "100%"
                                                                                      , height = "600px")
                                                                    )
                                                        )
                                                 )
                                               ) ## END fluidRow
                                    ) ## END tabPanel
                                  ) ## END tabsetPanel
                        ) ## END wellPanel
               )
             ) ## END fluidRow
           ) %>% helper(type = "inline"
                        , title = "Create Plant Functional Group (PFG) for a FATE simulation"
                        , size = "l"
                        , content = help.HTML(html.file = paste0(path.articles, "rfate_tutorial_1_PFG.html")
                                              , target.anchor = 'class="section level2"'
                                              , target.class = "what-are-the-key-steps-of-this-process")
           ) ## END mainPanel
         ) ## END sidebarLayout
) ## tabPanel