r - gvisGauge 未显示在 R Shiny（空白空间）中 - googleVis - Gauge

Question

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

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

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

从服务器.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));

    })
  }
))