Question

我试图让Shiny（R）在第二个fluidRow声明定义的第二行显示最低温度（测试的随机数据），但没有运气。这不适用于生产脚本。我只是想学习Shiny。我有一种感觉，我没有在ui和服务器组件之间正确调用，但我不知道是什么。任何帮助将不胜感激。

另外，我想知道是否有人对我使用Shiny应用程序对可能有数百万行的天气数据有任何想法。这会慢吗，甚至不可能？谢谢。

clusters1 = clusters(g)
V(g)[clusters1$membership == 1]
+ 5/8 vertices, named, from 42645a7:
[1] Bob       Cecil     David     Esmeralda Alice    
V(g)[clusters1$membership == 2]
+ 3/8 vertices, named, from 42645a7:
[1] Tom   Dick  Harry

Answer 1

您没有看到任何输出的原因是id嵌套在output$info内，而output$contents从未被调用，因为您没有匹配{ {1}}。

我的建议是将所有数据加载到反应函数之外，如Tutorial Lesson 5的执行部分所述。然后，您还应该删除output$contents并将其与其他textOutput("contents")函数放在同一级别。

Answer 2

用以下内容替换服务器：

server <- function(input, output) {
  output$info <- renderText({
  req(input$file1)
  df <- read.csv(input$file1$datapath, header = TRUE)
  min(df$Temp)   
 })

}

闪亮的R app不会显示文字

2 个答案: