gvisGauge没有显示在R Shiny（空白区域） - googleVis - Gauge

Question

我正在尝试使用R Shiny中的googleVis库显示一个简单的Gauge。

然而 - 我唯一可以展示的是一个与INVISIBLE仪表的宽度和高度相匹配的空白区域。 （我有一个类似的图像，我甚至无法使用renderImage显示图像。因此，可能会连接两个失败。）

有关如何修复以下代码的任何想法将不胜感激：

来自server.R：

output$gauge <- renderGvis({
M0 <- matrix(c('Label','Value'),ncol=2,byrow=TRUE)
M1 <- matrix(c('IRR',4),ncol=2,byrow=TRUE)
MU <- rbind(M0,M1)
df <- as.data.frame(MU)
gvisGauge(df,
options=list(min=0, max=10, greenFrom=8,
greenTo=10, yellowFrom=6, yellowTo=8,
redFrom=0, redTo=6, width=300, height=300));
})

来自ui.R：

uiOutput("gauge")

谢谢，

乍得

Answer 1

您的data.frame未正确指定

> M0 <- matrix(c('Label','Value'),ncol=2,byrow=TRUE)
> M1 <- matrix(c('IRR',4),ncol=2,byrow=TRUE)
> MU <- rbind(M0,M1)
> df <- as.data.frame(MU)
> df
     V1    V2
1 Label Value
2   IRR     4


library(shiny)
library(googleVis)
runApp(list(
  ui = bootstrapPage(
    numericInput('n', 'Number of obs', 4, 1, 10),
    htmlOutput("view")
  ),
  server = function(input, output) {
    output$view <- renderGvis({
     df <- data.frame(Label = "IRR", Value = input$n)
      gvisGauge(df,
                options=list(min=0, max=10, greenFrom=8,
                             greenTo=10, yellowFrom=6, yellowTo=8,
                             redFrom=0, redTo=6, width=300, height=300));

    })
  }
))