r shiny ggvis

Rstudio brillante no puede usar ggvis



shiny (1)

Fuente ggvis en su archivo ui.R (ejemplo aquí http://128.199.255.233:3838/userApps/john/ggvistest/ ):

ui.R

library("ggvis") shinyUI(pageWithSidebar( div(), sidebarPanel( sliderInput("n", "Number of points", min = 1, max = nrow(mtcars), value = 10, step = 1), uiOutput("plot_ui") ), mainPanel( ggvisOutput("plot"), tableOutput("mtc_table") ) ))

servidor.R

library(shiny) library(ggvis) shinyServer(function(input, output, session) { # A reactive subset of mtcars mtc <- reactive({ mtcars[1:input$n, ] }) # A simple visualisation. In shiny apps, need to register observers # and tell shiny where to put the controls mtc %>% ggvis(~wt, ~mpg) %>% layer_points() %>% bind_shiny("plot", "plot_ui") output$mtc_table <- renderTable({ mtc()[, c("wt", "mpg")] }) })

Tengo un servidor RStudio Shiny en ejecución e instalé ggvis desde https://github.com/rstudio/ggvis pero no puedo reproducir ninguno de los ejemplos de demostración en el servidor.

Cuando ejecuto R con la misma versión instalada en el servidor (3.1.0), puedo hacer lo siguiente:

> library("shiny") > library("ggvis") The ggvis API is currently rapidly evolving. We strongly recommend that you do not rely on this for production, but feel free to explore. If you encounter a clear bug, please file a minimal reproducible example at https://github.com/rstudio/ggvis/issues. For questions and other discussion, please use https://groups.google.com/group/ggvis. Attaching package: "ggvis" The following object is masked from "package:stats": filter > ggvis::ggvisOutput function (plot_id = rand_id("plot_id")) { ggvisOutputElements(plot_id, spec = NULL, shiny = TRUE) } <environment: namespace:ggvis>

Pero cuando intento el ejemplo en una de las carpetas de demostración:

# ui.R shinyUI(pageWithSidebar( div(), sidebarPanel( sliderInput("n", "Number of points", min = 1, max = nrow(mtcars), value = 10, step = 1), uiOutput("plot_ui") ), mainPanel( ggvisOutput("plot"), tableOutput("mtc_table") ) )) # server.R library("ggvis", lib.loc="/opt/R/R-3.1.0/lib64/R/library"))) shinyServer(function(input, output, session) { # A reactive subset of mtcars mtc <- reactive({ mtcars[1:input$n, ] }) # A simple visualisation. In shiny apps, need to register observers # and tell shiny where to put the controls mtc %>% ggvis(~wt, ~mpg) %>% layer_points() %>% bind_shiny("plot", "plot_ui") output$mtc_table <- renderTable({ mtc()[, c("wt", "mpg")] }) })

Yo obtengo:

ERROR: could not find function "ggvisOutput"

Al comentar la línea con la instrucción ggvisOutput , la página se renderiza normalmente pero sin trazar.

¿Algunas ideas?