R/ui_edaplant.R

In CIP-RIU/eda4plant: Exploratory Data Analysis for Plant Breeding Experiments (one line, title case)

#' UI for EDA
#' Returns a user interface for exploratory graphics
#' @author Omar Benites
#' @param type type of UI element, deault is a tab in a shinydashboard
#' @param title diaply title name
#' @param name UI TabName
#' @importFrom shinydashboard box
#' @importFrom shinyFiles parseFilePaths
#' @importFrom shiny fileInput
#' @description user interface for EDA
#' @export


edaplant_ui <- function(type = "tab", title = "Exploratory Data Analysis", name= "eda_plot_module"){
  
  shinydashboard::tabItem(tabName = name,
                          h2(title),   
                          
                          shinydashboard::box( 
                            title = " ", status = "primary", solidHeader = TRUE,
                            collapsible = TRUE, width = NULL,
                            #tabsetPanel(
                            tabBox(width = 12,
                                   tabPanel("EDA", #begin tabset "CHECK"
                                            fluidRow( 
                                              column(width = 12, #begin column principal layout
                                                     
                                                     
                                                     fileInput("file_eda_input", "Choose a fieldbook",
                                                               accept = c(".xlsx")
                                                     ),
                                                     
                                                     #shinyFiles::shinyFilesButton('file_eda', 'Select File', 'Select a file',FALSE),
                                                     infoBoxOutput("file_message_eda", width = NULL) ,
                                                     
                                                     br(),
                                                     br(),
                                                         
                                                           plotOutput('plot1'),
                                               
                                                           br(),
                                                           br(),
                                                           hr(),

                                                     fluidRow( #begin fluidRow edatypechart
                                                       column(3, #begin column 3
                                                      
                                                              selectInput("eda_type_chart", "Choose a graph", 
                                                                          #choices = c("boxplot","scatterplot","pairsplot","histogram","density", "ammi"), 
                                                                          choices = c("boxplot","scatterplot","histogram","density"),
                                                                          
                                                                          selected = 1),
                                                              
                                                              conditionalPanel(
                                                                condition = "input.eda_type_chart =='boxplot'|
                                                                input.eda_type_chart=='histogram'|
                                                                input.eda_type_chart=='density'",#|
                                                                #input.eda_type_chart=='ammi'", 
                                                                
                                                                uiOutput("sel_trait_eda")
                                                              ),
                                                              
                                                              conditionalPanel( 
                                                                condition = "input.eda_type_chart =='scatterplot'",
                                                                uiOutput("sel_traitX_eda")
                                                              ),
                                                              
                                                              conditionalPanel( 
                                                                condition = "input.eda_type_chart =='scatterplot'",
                                                                uiOutput("sel_traitY_eda")
                                                              ),
                                                              
                                                              
                                                              conditionalPanel( 
                                                                condition = "input.eda_type_chart =='pairsplot'",
                                                                #sliderInput(inputId = "bins_eda",label = "Bins", min = 0,max =  100,value = 10)
                                                                uiOutput("sel_pairs_trait_eda")
                                                              ),
                                                              
                                                              conditionalPanel( 
                                                                condition = "input.eda_type_chart =='histogram'",
                                                                uiOutput("sel_bins_eda")
                                                              ),
                                                              
                                                              conditionalPanel( 
                                                                condition = "input.eda_type_chart =='ammi'",
                                                                uiOutput("sel_trait_ammi_eda"),
                                                                shinysky::shinyalert("alert_met_sbase_done", FALSE, auto.close.after = 1)
                                                              ),
                                                              
                                                              conditionalPanel( 
                                                                condition = "input.eda_type_chart =='ammi'",
                                                                uiOutput("sel_method_ammi_eda"),
                                                                uiOutput("sel_env_ammi_eda"),
                                                                uiOutput("sel_gen_ammi_eda"),
                                                                uiOutput("sel_rep_ammi_eda")
                                                              )#,
                                                        ),#end column 3
                                                      #),#end fluidRow edatypechart
                                                    
                                                      
                                                      #f5f5f5
                                                      column(3, offset = 1,  #begin second column #Graphic settings
                                                             
                                                             
                                                             conditionalPanel(
                                                               condition = "input.eda_type_chart =='boxplot'|
                                                               input.eda_type_chart=='scatterplot'|
                                                               input.eda_type_chart=='histogram'|
                                                               input.eda_type_chart=='density'", 
                                                                
                                                                uiOutput("sel_gby_eda")
                                                              ),
                                                              
                                                              conditionalPanel(
                                                                condition = "input.eda_type_chart =='boxplot'",
                                                                uiOutput("sel_dots_eda")
                                                              ),
                                                              
                                                              conditionalPanel(
                                                                condition = "input.eda_type_chart =='boxplot'|
                                                                input.eda_type_chart=='scatterplot'|
                                                                input.eda_type_chart=='density'|
                                                                input.eda_type_chart=='pairsplot'|
                                                                input.eda_type_chart=='histogram'", 
                                                                selectInput(inputId = 'sel_orientation_eda', 'Orientation of the label (Degrees °)', 
                                                                            c("none", "45°", "90°"), selected = "none", selectize=TRUE)
                                                              )
                                                              
                                                     ),  #end second column #Graphic settings
                                                     
                                                     
                                                     column(3,
                                                            textInput(inputId = "xlabel_graph",
                                                                      label = "X label",
                                                                      value = ""),
                                                            textInput(inputId = "ylabel_graph",
                                                                      label = "Y label",
                                                                      value = "")#,
                                                            #downloadButton('downloadReport', label = "Download the plot")
                                                            
                                                            #          selectInput('facet_row', 'Facet Row', c(None='.', names(dataset))),
                                                            #          selectInput('facet_col', 'Facet Column', c(None='.', names(dataset)))
                                                       )
                                                     
                                                     
                                                     
                                                     
                                                     
                                                     
                                                     
                                              )#end fluidRow edatypechart      
                                                          
                                                           # fluidRow(
                                                           #   column(3,
                                                           #          h4("Diamonds Explorer"),
                                                           #          sliderInput('sampleSize', 'Sample Size', 
                                                           #                      min=1, max=nrow(dataset), value=min(1000, nrow(dataset)), 
                                                           #                      step=500, round=0),
                                                           #          br(),
                                                           #          checkboxInput('jitter', 'Jitter'),
                                                           #          checkboxInput('smooth', 'Smooth')
                                                           #   ),
                                                           #   column(4, offset = 1,
                                                           #          selectInput('x', 'X', names(dataset)),
                                                           #          selectInput('y', 'Y', names(dataset), names(dataset)[[2]]),
                                                           #          selectInput('color', 'Color', c('None', names(dataset)))
                                                           #   ),
                                                           #   column(4,
                                                           #          selectInput('facet_row', 'Facet Row', c(None='.', names(dataset))),
                                                           #          selectInput('facet_col', 'Facet Column', c(None='.', names(dataset)))
                                                           #   )
                                                           # )   
                                      
                                                       
                                                                             
                                              ) #end column layout
                                              
                                              
                                              
                                            )
                                   )
                            )
                          )
  )
                                                     
  
  
}