Question

我是关于闪亮和googleVis软件包的新手，我正在尝试构建一个简单的，裸露的骨头gvisMotionChart in Shiny。我已经能够在一个单独的文件中创建gvisMotionChart，但是当我尝试运行Shiny应用程序时，它只显示侧栏面板而不生成动画图表。

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

需要输入：

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

如何在Shiny中构建简单的谷歌图表

1 个答案: