Shiny中如何使用循环生成table中的数据？

Question

刚开始学shiny几天，被这个问题困扰很久了

我需要生成一个table(Two-column table)，table里面的数据需要根据输入计算出来（然后我就可以用这个table 在 ggplot()).

中生成散点图

我尽量让代码更显眼，所以我想用for循环来替换可能有数百行高度重复的代码。否则会变成(input$meansy1)-1)^2,(input$meansy1)-2)^2......(input$meansy1)-100)^2.

不知道为什么在data.frame()中不能正确使用。这是代码的一部分，

shinyUI(fluidPage(

numericInput("y1", "y1:", sample(1:100,1), min = 1, max = 100)),
tableOutput("tb")
))

shinyServer(function(input, output,session) {
      
    list <-c()
    for (i in 1:100) {
      local({
        list[[i]] <-reactive(((input$y1)-i)^2)}
        )}
  
  dt = data.frame(y_roof = 1:100, B=list)

  output$tb <- renderTable({ 
    dt
     })

})

Answer 1

在为 shiny 应用程序开发功能时，将底层操作与 shiny 上下文分开看是有意义的。这样你就可以弄清楚你是否有一个闪亮的特定问题。

让我们先看看您要执行的操作：从 x 中迭代减去 1 到 100 的值，然后对结果进行平方。

您可以在基数 R 中执行此操作，如下所示：

x <- 1
dt1 <- data.frame(y_roof = 1:100)
(x - dt1$y_roof)^2
#>   [1]    0    1    4    9   16   25   36   49   64   81  100  121  144  169  196
#>  [16]  225  256  289  324  361  400  441  484  529  576  625  676  729  784  841
#>  [31]  900  961 1024 1089 1156 1225 1296 1369 1444 1521 1600 1681 1764 1849 1936
#>  [46] 2025 2116 2209 2304 2401 2500 2601 2704 2809 2916 3025 3136 3249 3364 3481
#>  [61] 3600 3721 3844 3969 4096 4225 4356 4489 4624 4761 4900 5041 5184 5329 5476
#>  [76] 5625 5776 5929 6084 6241 6400 6561 6724 6889 7056 7225 7396 7569 7744 7921
#>  [91] 8100 8281 8464 8649 8836 9025 9216 9409 9604 9801

要将结果存储在数据框中，请将最后一行更改为：

dt1$col2 <- (x - dt1$y_roof)^2

head(dt1)
#>   y_roof col2
#> 1      1    0
#> 2      2    1
#> 3      3    4
#> 4      4    9
#> 5      5   16
#> 6      6   25

在 tidyverse 中做同样的事情看起来像这样：

library(dplyr)

dt2 <- 
  data.frame(y_roof = 1:100) %>% 
  mutate(col2 = (x - y_roof)^2)

head(dt2)
#>   y_roof col2
#> 1      1    0
#> 2      2    1
#> 3      3    4
#> 4      4    9
#> 5      5   16
#> 6      6   25

现在我们可以将它应用到闪亮的应用程序中：

library(shiny)
library(dplyr)
ui <-
  shinyUI(fluidPage(
    numericInput("y1", "y1:", sample(1:100, 1), min = 1, max = 100),
    tableOutput("tb")
  ))

server <-
  shinyServer(function(input, output, session) {
    
    output$tb <- renderTable({
      data.frame(y_roof = 1:100) %>%
        mutate(col2 = (input$y1 - y_roof) ^ 2)
    })
    
  })
shinyApp(ui, server, options = list(launch.browser = TRUE))

Shiny中如何使用循环生成table中的数据？

How to use loop to generate the data in a table in Shiny?

r

shiny

shiny-server

shinyapps