app.R

library(shiny)
library(readxl)
library(rpivotTable)

ui <- fluidPage(
  titlePanel("EDA no Browser – rpivotTable"),

  mainPanel(
    width = 12,
    tabsetPanel(
      tabPanel(
        "Pivot Table",
        rpivotTableOutput("pivot")
      ),
      tabPanel(
        "Informações",
        h3("Sobre os Dados"),
        p(strong("Arquivo:"), "STATUS1.xlsx"),
        hr(),
        verbatimTextOutput("info")
      )
    )
  )
)

server <- function(input, output, session) {

  STATUS <- reactive({
    read_excel("STATUS1.xlsx")
  })

  output$pivot <- renderRpivotTable({
    rpivotTable(STATUS())
  })
  
  output$info <- renderPrint({
    dados <- STATUS()
    cat("Dimensões:", nrow(dados), "linhas x", ncol(dados), "colunas\n\n")
    cat("Colunas:\n")
    print(names(dados))
    cat("\n")
    cat("Primeiras linhas:\n")
    print(head(dados))
  })
}

shinyApp(ui, server)