inst/shinyApp/ui_layers/ui_correlation_strong.R

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

#-----------------------------------------------------------------------------------
# Niche bivariate strong correlations output

strong_corre <- sidebarLayout(position = "left",
                              sidebarPanel(
                                titlePanel("NicheToolBox"),
                                helpText("Showing correlations acoording to a threshold given by the user.
                                 Bivariate correlations may help to detect which variables are redundant."),
                                selectInput("cor_data_from",label = "Select a data set",choices = NULL),
                                numericInput(inputId = "cor_threshold",
                                             label = "Correlation threshold",
                                             value = 0.85,  min=0.5, max=1,step=0.05),
                                selectInput("cor_method","Select a method",
                                            c("Spearman"="spearman",
                                              "Pearson"="pearson"),
                                            selected = "Pearson"),
                                busyIndicator("Computation In progress",wait = 0),
                                checkboxInput("verbose_cor","Verbose",value = TRUE),
                                downloadButton(outputId = "download_stcor","Download")),
                              mainPanel(
                                verbatimTextOutput("big_cor")
                              ))