inst/app/app_eda_sbase.R

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

library(shiny)
#library(DT)
library(shinydashboard)
library(shinyFiles)
library(ggplot2)
#library(st4gi)
#library(pepa)
library(readxl)
library(eda4plant)
library(st4gi)
library(GGally)
library(ggrepel)
library(brapi)
library(dplyr)
#library(knitr)



tabNameS <- "eda_graph_sbase"

server <- function(input, output, session,values) {
  values = shiny::reactiveValues()
  eda4plant::edaplant_sbase_server(input, output, session, values = values)
}

ui <- dashboardPage(skin = "yellow",
                    dashboardHeader(title = ""),
                    dashboardSidebar(width = 200,
                                     menuItem("Resources",
                                              sidebarMenu(id = "menu",
                                                          menuSubItem("EDA SBASE", icon = icon("star"),
                                                                      tabName = tabNameS)
                                              )
                                     )
                    ),
                    dashboardBody(
                      
                      tabItems(
                        eda4plant::edaplant_sbase_ui(name = tabNameS)
                      )
                    )
)

shinyApp(ui = ui, server = server)