Развертывание блестящего приложения, не отображающего график ggvis

Я пытаюсь развернуть блестящее приложение, которое я создал. Он отлично отображается локально, но неправильно отображается при развертывании. У меня есть следующие сценарии пользовательского интерфейса и сервера:

# 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" )
})})