testShiny

server.R

library(shiny)

shinyServer(function(input, output) {
  sortie<-NULL
  sortie <- reactive({
    if (input$click1>0) {data.frame(rnorm(10), rexp(10))}
  })
  
  
  output$click.feeback1 <- renderText({
    text <- "Appuyez sur les boutons :"}) 
  
  output$table <- renderTable({
    data.frame(sortie())
  })
  
  graph <- reactive({
    if (input$click1>0 & input$click2>0){plot(sortie())
  }
})
  
  
  output$graphique <- renderPlot({graph()
                                 })
  
  
})
  

ui.R

library(shiny)

shinyUI(pageWithSidebar(
  headerPanel("Titre"),
  sidebarPanel(
    br(),
    h5(textOutput("click.feeback1")),
    actionButton("click1", "Executer"),
    br(),
    actionButton("click2", "Tracer")
    )
    
  ,
  mainPanel(
    #tabsetPanel(
    h4("Tableau"),
    tabPanel("Base", tableOutput("table")),
    h4("Graphique"),
    plotOutput("graphique")
    # )
  )  
))