inst/shinyApp/ui_layers/ui_ellipsoid_model_c.R

In luismurao/ntbox: From Getting Biodiversity Data to Evaluating Species Distribution Models in a Friendly GUI Environment

ellipsoid_models_c <- sidebarLayout(position = "left",
                                    sidebarPanel(
                                      titlePanel("NicheToolBox"),
                                      h3("Ellipsoid Model"),
                                      busyIndicator("Computation In progress",
                                                    wait = 0),
                                      selectInput("selectShape",
                                                  "Select a region to
                                                  train the model",
                                                  choices =NULL),

                                      selectInput("selectM",
                                                  "Select a region to project
                                                  the ellipsoid",
                                                  choices = NULL),


                                      uiOutput("erand"),


                                      #conditionalPanel("input.tableM == true",
                                      #                 actionButton("importM","Import")
                                      #                 ),
                                      #conditionalPanel("input.tableW == true",
                                      #                 actionButton("importW","Import")
                                      #),

                                      conditionalPanel("input.selectShape == 'wWorld'",
                                                       selectInput(inputId = "biosEllipW",
                                                                   "Select the variables",
                                                                   choices = NULL,
                                                                   multiple = TRUE)

                                                       ),
                                      conditionalPanel("input.selectShape == 'mLayers'",
                                                       selectInput(inputId = "biosEllipM",
                                                                   "Select the variables",
                                                                   choices = NULL,
                                                                   multiple = TRUE)

                                      ),

                                      numericInput("prop_points",
                                                   "Proportion of niche points
                                                   inside the ellipsoid",
                                                   value = 0.95,
                                                   min = 0.5,max=0.99),

                                      h5("Run your model"),
                                      conditionalPanel("input.selectM ==
                                                       'wWorld' &&
                                                       input.selectShape ==
                                                       'wWorld'",
                                                       shiny::actionButton(
                                                         "selectBios_all_all_train",
                                                         label = "Run model 1")
                                      ),
                                      conditionalPanel(
                                        "input.selectM=='wWorld' &&
                                        input.selectShape== 'mLayers'",
                                                       shiny::actionButton(
                                                         "selectBios_all_m_train",
                                                         label = "Run model 2")
                                      ),
                                      conditionalPanel("input.selectM=='mLayers'
                                                       && input.selectShape == 'wWorld'",
                                                       shiny::actionButton(
                                                         "selectBios_m_all_train",
                                                         label = "Run model 3")
                                      ),
                                      conditionalPanel(
                                        "input.selectM=='mLayers' &&
                                        input.selectShape == 'mLayers'",
                                                       shiny::actionButton(
                                                         "selectBios_m_m_train",
                                                         label = "Run model 4")
                                      ),

                                      busyIndicator("Computation In progress",
                                                    wait = 0),
                                      h5("Download Ellipsoid Meta-Data"),
                                      downloadButton("downShapMat","Download"),
                                      h5("Download your model in .asc"),
                                      downloadButton(outputId = "downEllipRas",
                                                     label = "Download model"),

                                      h5("Enviromental distances
                                         to the centroid table"),
                                      downloadButton(
                                        outputId = "downEllipDistance",
                                        label = "Distance DataTable")

                                    ),
                                    mainPanel(
                                      conditionalPanel("input.selectShape == 'wWorld'",
                                                       DT::dataTableOutput("showStableW")),
                                      conditionalPanel("input.selectShape == 'mLayers'",
                                                       DT::dataTableOutput("showStableM")),
                                      uiOutput("ellip_models_plots")
                                    ))