Блог

Главная - Вопросы по программированию - вывод сервера r shiny показывает попытку применить нефункциональную ошибку

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

#r #dashboard #shinydashboard

#r #Информационная панель #shinydashboard

Вопрос:

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

  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

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

Ответ №1:

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

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