вывод сервера r блестящий показывает попытку применить нефункциональную ошибку

Question

Я создал блестящее приложение следующим образом

 library(shiny)
 library(shinydashboard)
 library(shinydashboardPlus)
 ui <- dashboardPage(
 dashboardHeader(title = "Visualization tool", titleWidth = "250"),
 dashboardSidebar(width = '250', fluidRow(
 div(numericInput(inputId = "ID", label = "ID1", value = 0, min = 0, max = 
 1000)))),
 dashboardBody(
 fluidRow(column(7,textOutput(outputId = "Table2")))))
 server <- function(input, output) {   
 output$Table2=renderText({
 value=input$ID()
 return(value)
 })}


 shinyApp(ui, server)

Приложение имеет поле ввода на боковой панели, и сгенерированное число должно отображаться на главной панели.Hoewevr, я получаю следующую ошибку

 attempt to apply non-function

Я не могу найти проблему.попросить кого-нибудь проверить и предложить решение

Answer 1

Я обнаружил ошибку

   server <- function(input, output) {   
   output$Table2=renderText({
   value=input$ID
   return(value)
    })}