haozhu233

---
output: html_document
---

```{r}
library(tidyverse)
library(kableExtra)
library(knitr)

a <- mpg %>%

haozhu233

library(shiny)

ui <- fluidPage(

   # Application title
   titlePanel("mtcars"),

   sidebarLayout(
      sidebarPanel(
         sliderInput("mpg", "mpg Limit",

haozhu233

library(shiny)
library(ggplot2)
library(dplyr)

server <- function(input, output, session){
  weekdays <- c("Sunday", "Monday", "Tuesday", "Wednesday", 
                "Thursday", "Friday", "Saturday")
  
  rv <- reactiveValues(
    dt = data.frame(

haozhu233

library(shiny)

shinyServer(
    function(input, output) {
      x <- data.frame(PRODUCT=factor(c("ALPHA", "ALPHA","BRAVO","ALPHA","ALPHA")), 
                      YYYYMM= factor(c("2/1/2015","3/1/2015","4/1/2015","5/1/2015","6/1/2015")),
                      COUNT=c(44,22,37,76,97))

      ## select only rows where PRODUCT = input$product
      x1 <- reactive({

haozhu233

library(shiny)
shinyServer(function(input, output, session) {
  
  session$onSessionEnded(function() {
    stopApp()
  })
  
  date.range <- as.Date(c("2015-01-01", "2015-12-31"))
  # ------- Date Range Input + previous/next week buttons---------------
  output$choose.date <- renderUI({

haozhu233

library(dplyr)
library(ggvis)
library(shiny)
shinyServer(function(input, output, session) {
  
  session$onSessionEnded(function() {
    stopApp()
  })
  mtcars$cyl <- factor(mtcars$cyl, levels = c(4L,6L, 8L))