Googlevis，R闪亮：不在新窗口中

Question

我有问题。我正在尝试使用带有R Shiny的Googlevis软件包，但遇到一些问题。

 library (googleVis)
    library(shiny)
    library(shinythemes)

df=data.frame(annee=c("2000","2005","2010","2014","2015","2016","2017"), val= c(30.0,27.0,29.7,28.6,28.8,29.4,26.))
graph2 <- {gvisLineChart(df)}

shinyApp(
  ui = navbarPage(
    theme = shinytheme("yeti"),"Pageweb",
    tabPanel("Page1",
             sidebarPanel(
               tags$em("TEXTE TEXTE TEXTE TEXTE TEXTE TEXTE TEXTE TEXTE TEXTE TEXTE TEXTE")
               ),
             mainPanel(
               tabsetPanel(
                 tabPanel("Onglet1", plotOutput("graph1"), "Texte de présentation", plot(graph2)),
                 tabPanel("Onglet2"),
                 tabPanel("Onglet3")
               )
             )
               )),
  server = function(input, output) {

    output$graph1 <- renderPlot({
      y = c(30.0,27.0,29.7,28.6,28.8,29.4,26.)
      barplot(y,names.arg=c("2000","2005","2010","2014","2015","2016","2017"),main="Titre graph1",
              xlab="Années", ylab="Pourcentage (en %)", col="#2345AA", border="#515353",space=0.3,
              ylim=c(0,35), density=c(30))
    })  
  }
  )

使用Googlevis创建的图形会在新窗口中打开，但我想在R闪亮页面中实现它。我尝试了htmloutput函数，但没有结果。

[如果有人有想法将Googlevis制作的图形放在R Shiny制作的页面中

df=data.frame(annee=c("2000","2005","2010","2014","2015","2016","2017"), val= c(30.0,27.0,29.7,28.6,28.8,29.4,26.))
    graph2 <- {gvisLineChart(df)}

[此外，我被迫在开始时声明这两行。如果没有，则找不到该变量。

Answer 1

需要使用renderGvis代替renderPlot，并使用htmlOutput代替plotOutput