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

Posted 2023-03-12

【中文标题】gvisGauge 未显示在 R Shiny（空白空间）中 - googleVis - Gauge

【英文标题】：gvisGauge not displaying in R Shiny (empty space) - googleVis - Gauge

【发布时间】：2014-06-20 19:37:51

【问题描述】：

我正在尝试使用 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")

谢谢，

乍得

【问题讨论】：

Your data.frame 指定不正确。

谢谢你，JD。您是否有设置 data.frame 的正确方法的示例？根据我找到的文档，我应该将一个二乘二矩阵粘贴到“as.data.frame”中，第一行是“标签”和“值”，第二行是实际的标签和实际值。

【参考方案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));

    )
  
))

【讨论】：

太棒了。此外，其中一个问题是我一直在使用 uiOutput，而不是 htmlOutput。