shiny tutorial 04 - Layouts

# 패키지
library(shiny)

# ui 정의
ui <- fluidPage(
  titlePanel("Sidebar Layout 예시"), # 제목 Panel

  sidebarLayout(
    sidebarPanel(
      numericInput(
        inputId = "n", label = "샘플사이즈",
        value = 25
      )
    ),

    mainPanel(
      plotOutput(outputId = "hist")
    )
  )
)

# server 정의
# output will be displayed
server <- function(input, output) {
  output$hist <- renderPlot({
    hist(rnorm(input$n))
  })
}

# shinyApp 실행
shinyApp(ui = ui, server = server)

library(shiny)
library(ggplot2)

dataset <- diamonds

ui <- fluidPage(

  title = "다이아몬드 데이터 탐색",
  
  plotOutput('plot'),
  
  hr(),

  fluidRow(
    column(3,
      h4("다이아몬드 데이터 탐색"),
      sliderInput('sampleSize', 'Sample Size', 
                  min=1, max=nrow(dataset), value=min(1000, nrow(dataset)), 
                  step=500, round=0),
      br(),
      checkboxInput('jitter', 'Jitter'),
      checkboxInput('smooth', 'Smooth')
    ),
    column(4, offset = 1,
      selectInput('x', 'X', names(dataset)),
      selectInput('y', 'Y', names(dataset), names(dataset)[[2]]),
      selectInput('color', 'Color', c('None', names(dataset)))
    ),
    column(4,
      selectInput('facet_row', 'Facet Row', c(None='.', names(dataset))),
      selectInput('facet_col', 'Facet Column', c(None='.', names(dataset)))
    )
  )
)

server <- function(input, output){    

  dataset <- reactive({
    diamonds[sample(nrow(diamonds), input$sampleSize),]
  })

  output$plot <- renderPlot({
    
    p <- ggplot(dataset(), aes_string(x=input$x, y=input$y)) + geom_point()
    
    if (input$color != 'None')
      p <- p + aes_string(color=input$color)
    
    facets <- paste(input$facet_row, '~', input$facet_col)
    if (facets != '. ~ .')
      p <- p + facet_grid(facets)
    
    if (input$jitter)
      p <- p + geom_jitter()
    if (input$smooth)
      p <- p + geom_smooth()
    
    print(p)
    
  }, height=400, width = 700)
}

shinyApp(ui = ui, server = server)

library(shiny)

ui <- navbarPage("My Application",
  tabPanel("Component 1"),
  tabPanel("Component 2"),
  navbarMenu("More",
    tabPanel("Sub-Component A"),
    tabPanel("Sub-Component B"))
)

server <- function(input, output) {
  
}

shinyApp(ui = ui, server = server)