Shiny 未找到闪亮的renderGvis对象输出

Shiny 未找到闪亮的renderGvis对象输出,shiny,output,render,dashboard,ggvis,Shiny,Output,Render,Dashboard,Ggvis,我不能提供一个最小的例子,因为它适用于一个代码,但不适用于我正在询问的这个代码。我试图解释代码的结构,因为我确信有人可以帮助我 我有一个普通的Server.R文件 Server <- function(input, output, session) { source("ChartServer.R") } 我有三个选项卡项,其中两个工作正常。但是,尝试渲染不起作用的绘图(上面的server.R文件中提到的绘图) source(“ChartUI.R”) 大约TTAB2在调用源代码时,尝试添加

我不能提供一个最小的例子,因为它适用于一个代码,但不适用于我正在询问的这个代码。我试图解释代码的结构,因为我确信有人可以帮助我

我有一个普通的Server.R文件

Server <- function(input, output, session) {
source("ChartServer.R")
}
我有三个选项卡项,其中两个工作正常。但是,尝试渲染不起作用的绘图(上面的server.R文件中提到的绘图)

source(“ChartUI.R”)

大约TTAB2在调用源代码时,尝试添加
local=TRUE
$value
<代码>源代码(“ChartServer.R”,local=TRUE)$value
非常感谢。local=TRUE工作正常。调用source时,请尝试添加
local=TRUE
$value
<代码>源代码(“ChartServer.R”,local=TRUE)$value非常感谢。本地=真的很好用。
output$ChartPlotOutput <- renderGvis({

gvisChart <- CREATES A CHART

  return(gvisChart)
})
source("servicefunctions.R")


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


dashboardPage(
  dashboardHeader,
  dashboardSidebar,
  dashboardBody
  )
source("ChartUI.R")    
aboutTab2 <- tabItem(tabName = "about2",
                            fluidPage(
                              fluidRow(
                                tabBox(id = "PChartUI", width = 7, 
                                       tabPanel(title = 'Prices', PChartUI)
                                ))))
PChartUI <- tagList(
  htmlOutput("ChartPlotOutput"),
  imageOutput("ChartPlotWidthPlaceholder",width = '100%', height = '50px'))
Error in output$ChartPlotOutput <- renderGvis({ : 
  object 'output' not found