我创建了一个闪亮的应用程序如下
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
我无法找到问题。请求某人检查并提出解决方案
我发现了错误
server <- function(input, output) {
output$Table2=renderText({
value=input$ID
return(value)
})}