#
# This is a Shiny web application. You can run the application by clicking
# the 'Run App' button above.
#
# Find out more about building applications with Shiny here:
#
#    http://shiny.rstudio.com/
#
## Variable selection
## For this final app, we will add a tab that will plot two of the four variables in the data set USArrests against one another.  
##
## Miscellaneous examples:
##
##
##


library(plotly)
library(shiny)
library(ggplot2)

library(bslib) ## for value_box
library(shinypanel)

# Define UI for application that draws a histogram
ui <- fluidPage(
  
  
  # Application title
  titlePanel("Random distribution generation"),
  
  # Sidebar with a slider input for number of bins 
  sidebarLayout(
    sidebarPanel(
      sliderInput("samples",
                  "Number of samples:",
                  min = 10,
                  max = 500,
                  value = 100),
    ),
      
 mainPanel( 
                     
             value_box(
               title = "Euchre Stats",
               value = "100",
               theme = "bg-gradient-indigo-purple"
             ),
   
             card(card_header("This is a card"),"What a joker",
                  card_footer("Not playing with a full deck"))
    )
  )
)

server <- function(input, output,session) {
  data <- reactive(
    {
      
       x    <-  rnorm(input$samples)  
       x
    }
  )


}

# Run the application 
shinyApp(ui = ui, server = server)