部署闪亮的应用程序不显示ggvis图

Question

我正在尝试部署我创建的闪亮应用。它在本地完美显示，但在部署时无法正确显示。我有以下ui和服务器脚本：

# ui.R
library("shiny")
library("ggvis")
shinyUI(fluidPage(
titlePanel("Barcelona Wine Menu"),

sidebarLayout(
sidebarPanel(
  helpText("Display information about the selected variable"),

  selectInput("var", 
              label = "Choose a variable to display",
              choices = c("mpc", "mpv"),                 
              selected = "mpc")
),

mainPanel(
  ggvisOutput("meanpc")


)
)
))
# server.R
library("shiny")
library("ggvis")
shinyServer(
function(input, output) {
mpc <- mean.price.country
mpv <- mean.price.vintage


selection <- reactive({ifelse (input$var=="mpc", return(mpc), return(mpv))})

observe({
  selection() %>%
    ggvis(~V1, ~V2) %>%
    layer_bars() %>%
    bind_shiny("meanpc" )
})})

当我部署时，我看到第二张图片不像我在本地运行时那样显示数据。我无法找到类似的问题，因为大多数都是错误。有谁知道为什么这不正确部署？我已经阅读了shinyapp.io文档，并按照这些步骤但没有用。谢谢。

Answer 1

答案是Mike Wise建议的第一个故障排除步骤。我使用的数据是在我的环境中“本地”存储的。当我向Shiny发布此内容时，它无法识别数据。我所做的就是在工作目录文件夹中创建一个Excel工作表，然后将该数据导入我上面写的函数中。