Wie man einfaches Google-Diagramm in glänzendem

Question

baut Ich bin zu glänzend und die googleVis-Pakete neu, und ich versuche zu konstruieren, um ein einfaches, blankes gvisMotionChart in Glänzendem zu schaffen. Ich konnte das gvisMotionChart in einer separaten Datei erstellen, aber wenn ich versuche, die Shiny-App auszuführen, wird nur das Seitenleistenfenster angezeigt und das animierte Diagramm wird nicht erstellt.

ui.R

library(shiny) 
    library(googleVis) 

    shinyUI(fluidPage( 
     titlePanel("Google Motion Chart"), 
     sidebarLayout(
     sidebarPanel("Inputs go Here"), 
     mainPanel( 
      htmlOutput("view") 
     ) 
    ) 
)) 

server.R

library(shiny) 
library(googleVis) 

shinyServer(function(input, output) { 

    output$view <- renderGvis({ 
     gvisMotionChart(Fruits, 
        idvar="Fruit", 
        timevar="Year") 
    }) 
}) 

Answer 1

One eingeben muss:

shinyServer(function(input, output) { datasetInput <- 
reactive({gvisMotionChart(Fruits, idvar="Fruit", timevar="Year") })  
output$coolplot <- renderGvis ({ datasetInput() }) })