服务器输出r闪亮显示尝试应用非功能错误

问题描述 投票:0回答:1

我创建了一个闪亮的应用程序如下

 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

我无法找到问题。请求某人检查并提出解决方案

r dashboard shinydashboard
1个回答
0
投票

我发现了错误

   server <- function(input, output) {   
   output$Table2=renderText({
   value=input$ID
   return(value)
    })}
© www.soinside.com 2019 - 2024. All rights reserved.