library(RSQLite)
library(DBI)
library(shiny)
library(shinythemes)

#source('global.R', local = TRUE)

con <- dbConnect(drv=RSQLite::SQLite(), dbname= "/srv/shiny-server/lumo-apps/all-lumosql-benchmark-data-combined.sqlite")



ds_list <- dbGetQuery(con, paste0("select distinct value from run_data where key = 'option-datasize' order by value") )[,1]
os_list <- dbGetQuery(con, paste0("select distinct value from run_data where key = 'os-version' order by value") )[,1]
be_list <- dbGetQuery(con, paste0("select distinct value from run_data where key = 'backend-version' order by value") )[,1]



shinyUI(fluidPage(
 # setBackgroundColor(
 # color = "ghostwhite"
  #gradient = c("linear"),
  #direction = c("bottom"),
  #shinydashboard = FALSE
#),
  theme = shinytheme("darkly"),
# shinythemes::themeSelector(),
  headerPanel(title = "LumoSQL Benchmark Filter"),
  sidebarLayout(
       
    sidebarPanel(
      selectInput("ds",
		  "Datasize",
		  ds_list,
		  ds_list[1]
		  ),
      checkboxGroupInput(inputId = "os",
                   label = "Operating System Version",
                   choices = os_list,
                   selected = '5.15.23' ),
      checkboxGroupInput("be",
                         "Backend Version",
                         be_list,
                         '0.9.29' ),
      width = 3
    ),
    
    mainPanel(
      plotOutput(outputId = "theplot"),
      plotOutput("thelegend")
      )
  )
))