Tabela dinâmica no R Shiny

dúvidas
1

Olá, tudo bem?

Estou fazendo um app no R-Shiny cuja saída é uma tabela dinâmica, a qual vai se ajustando conforme os dados de entrada selecionados, mas não está dando certo…
Alguma sugestão? Segue código

devtools::install_github(“ramnathv/htmlwidgets#351”)
library(shiny)

ui ← fluidPage(

# Application title
titlePanel("Aplicativo de notas do ENEM"),


sidebarLayout(
    sidebarPanel(
        selectInput("idCategoria", "Selecione a categoria:",
                    choices=unique(dados$Categoria)),
        selectInput("idCurso", "Selecione o curso:",
                    choices=unique(dados$Curso)),
        selectInput("idRegiao", "Selecione a região:",
                    choices=unique(dados$Regiao)),
        selectInput("idEstado", "Selecione o estado:",
                    choices=unique(dados$Estado)),
        numericInput("num", "Insira sua nota:", min=0, max=1000, value=0)
        
    ),

  
    mainPanel(
      DT::dataTableOutput("dtable")
       
    )
)

)

server ← function(input, output) {
output$dtable<-DT::renderDataTable(dados, options = list(pageLength=10))

}

shinyApp(ui = ui, server = server)