Question

我不能带一个最小的例子，因为它适用于一个代码但不适用于我要问的这个代码。我试着解释代码的结构，因为我很确定有人可以帮助我。

我有

的常用Server.R文件

Server <- function(input, output, session) {
source("ChartServer.R")
}

其中source（＆＃34; ChartServer.R＆＃34;）：

output$ChartPlotOutput <- renderGvis({

gvisChart <- CREATES A CHART

  return(gvisChart)
})

和ui.R文件是一个dasboardpage：

source("servicefunctions.R")


source("dashboardBody.R")
source("dashboardHeader.R")
source("dashboardSidebar.R")


dashboardPage(
  dashboardHeader,
  dashboardSidebar,
  dashboardBody
  )

我有三个标签项，其中两个正常工作。但是，有人试图渲染一个无效的图（上面的server.R文件中提到的图）

source("ChartUI.R")    
aboutTab2 <- tabItem(tabName = "about2",
                            fluidPage(
                              fluidRow(
                                tabBox(id = "PChartUI", width = 7, 
                                       tabPanel(title = 'Prices', PChartUI)
                                ))))

源（＆＃34; ChartUI.R＆＃34）：

PChartUI <- tagList(
  htmlOutput("ChartPlotOutput"),
  imageOutput("ChartPlotWidthPlaceholder",width = '100%', height = '50px'))

当我尝试运行此应用时，我总是收到错误：

Error in output$ChartPlotOutput <- renderGvis({ : 
  object 'output' not found

如前所述，我已经使用了类似的结构，但在这里我无法找到我做错的事情。

非常感谢

找不到闪亮的renderGvis对象输出

0 个答案: