# # 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)