gpt4 book ai didi

r - Shiny 的非 react 范围

转载 作者:行者123 更新时间:2023-12-04 02:06:40 25 4
gpt4 key购买 nike

在我的 Shiny App 中,有两个输入:观察次数(整数)和颜色(要在红色、绿色和蓝色之间选择的字符)。还有一个“GO!”操作按钮。

使用哪个 Shiny 函数可以:

  • 重新生成随机数并更新直方图此新数据仅当用户点击“开始!”按钮。
  • 能够动态改变直方图的颜色无需重新生成随机数。

我更喜欢能为代码提供最大清晰度的解决方案。

请参阅下面我使用 isolate 的不成功尝试之一。

# DO NOT WORK AS EXPECTED

# Define the UI
ui <- fluidPage(
sliderInput("obs", "Number of observations", 0, 1000, 500),
selectInput('color', 'Histogram color', c('red', 'blue', 'green')),
actionButton("goButton", "Go!"),
plotOutput("distPlot")
)

# Code for the server
server <- function(input, output) {
output$distPlot <- renderPlot({
# Take a dependency on input$goButton
input$goButton

# Use isolate() to avoid dependency on input$obs
data <- isolate(rnorm(input$obs))
return(hist(data, col=input$color))
})
}

# launch the App
library(shiny)
shinyApp(ui, server)

最佳答案

是这样的吗?它只会在单击按钮时更新 data() 变量。您可以阅读 observeEventeventReactive here

#rm(list = ls())
# launch the App
library(shiny)
ui <- fluidPage(
sliderInput("obs", "Number of observations", 0, 1000, 500),
selectInput('color', 'Histogram color', c('red', 'blue', 'green')),
actionButton("goButton", "Go!"),
plotOutput("distPlot")
)

# Code for the server
server <- function(input, output) {
data <- eventReactive(input$goButton,{
rnorm(input$obs)
})

output$distPlot <- renderPlot({
return(hist(data(), col=input$color))
})
}
shinyApp(ui, server)

enter image description here

关于r - Shiny 的非 react 范围,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/42808366/

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com