ShinyExample

server.R

library(shiny)
library(PogromcyDanych)

# wykonywane raz gdy uruchamiana jest plikacja
serialeIMDB$sezon <- paste(serialeIMDB$sezon, serialeIMDB$odcinek, sep="/")

shinyServer(function(input, output) {
  # reużywalny fragment  
  dane <- reactive({
    serialeIMDB[serialeIMDB$serial == input$serial, 
                c("id", "serial", "nazwa", "sezon", "ocena", "glosow")]
  })

  # odpowiedź na kontrolki  
  output$tabela <- renderTable({
    dane()
  })

  output$wykres <- renderPlot({
    tmp <- dane()
    ggplot(tmp, aes(x=id, y=ocena)) + 
      geom_point() + geom_smooth(se=FALSE)
  })
  
  output$podsumowanie <- renderPrint({
    tmp <- dane()
    summary(tmp[,c("ocena", "glosow")])
  })
  
})

ui.R

library(shiny)
library(PogromcyDanych)

shinyUI(fluidPage(
  titlePanel("Eksplorator seriali"),
  sidebarLayout(
    sidebarPanel(
      selectInput("serial",
                  "Wybierz serial",
                  levels(serialeIMDB$serial),
                  "Friends")
      ),
    
    mainPanel(
      p("Dane dotyczące wybranego serialu:"),
      br(),
      tabsetPanel(
        tabPanel("Wykres", plotOutput("wykres", width = 500)),
        tabPanel("Podsumowanie", verbatimTextOutput("podsumowanie")),
        tabPanel("Tabela", tableOutput("tabela"))
      )
    )
  )
))