inst/shinyApp/stats4eb_app/ArquivosServer/EF1Pizza.R

In alexandrenovo/stats4eb: Statistics for basic education

##################################
#############Tabelas
#################################

output$table2 <- DT::renderDataTable({
  rm(list=ls())
  if(input$vetornome2=="ADILSONVOL2CAP6EXE1"){
    data <- ADILSONVOL2CAP6EXE1
  } else {
    if(input$vetornome1=="ADILSONVOL2CAP6EXE2"){
      data <- ADILSONVOL2CAP6EXE2
    } else {
      data <- ADILSONVOL2CAP20EXEMP1
    }
  }
  DT::datatable(data,
                class = 'cell-border stripe',
                extensions = 'Buttons', options = list(
                  dom = 'Bfrtip',
                  buttons = c('pageLength','copy', 'csv', 'excel', 'pdf', 'print')
                ))
})
##################################
#############Graficos
#################################