Question

我想在Shiny中创建一个reactiveValues对象，其内容定义为输入窗口小部件中包含的值。我设法做到了，但是我的实现似乎不必要地笨拙：

创建一个空的reactiveValues对象
监视输入窗口小部件的值随observeEvent的变化
使用输入小部件（reactiveValues）中的非反应性值将值分配给isolate对象

这里是一个例子：

ui <- fluidPage(
    fluidRow(
        column(2, radioButtons("main", label = "Main dish", choices = list("salad", "pasta"))),
        column(2, radioButtons("desert", label = "Desert", choices = list("fruit", "cake"))),
        column(8, actionButton("extra", "Louder!", style="background-color: #ffdb99"))
    ),
    verbatimTextOutput("myorder")
)

server <- function(input, output, session) {

    # 1. Create reactiveValues object
    menuR <- reactiveValues()

    # 2. Update values whenever widgets change
    observeEvent(c(input$main, input$desert),
        menuR[["meal"]] <- paste(c(isolate(input$main), isolate(input$desert)), collapse = " & ")
    )

    # 3. Perform operations on object values
    observeEvent(input$extra,
        menuR[["meal"]] <- paste0(toupper(menuR[["meal"]]), "!!!")
    )

    output$myorder <- renderText(menuR[["meal"]])
}

shinyApp(ui, server)

我非常想像这样直接创建reactiveValues对象（大大简化了上面的代码）：

# Set values upon creation
menuR <- reactiveValues(meal = paste(c(input$main, input$desert), collapse = " & "))

由于input$main是反应性的，因此不起作用...

我猜想用从小部件获得的值来定义reactiveValues对象是一件很常见的事情。

我想念什么吗？

感谢您的帮助，

雨果

Answer 1

您可以使用reactive()代替reactiveValues()来做到这一点。 menuR是一个反应性对象，它取决于main和desert的输入值。定义后，可以通过在服务器代码中调用menu()来使用它。另外，这可以避免您使用isolate()，因为您可以将menu的值设置为observeEvent()中的反应对象。

library(shiny)

ui <- fluidPage(
  fluidRow(
    column(2, radioButtons("main", label = "Main dish", choices = list("salad", "pasta"))),
    column(2, radioButtons("desert", label = "Desert", choices = list("fruit", "cake"))),
    column(8, actionButton("extra", "Louder!", style="background-color: #ffdb99"))
  ),
  verbatimTextOutput("myorder")
)

server <- function(input, output, session) {

  menuR <- reactive({
    paste(c(input$main, input$desert), collapse = " & ")
  })

  observeEvent(
    input$extra,
    menuR <- reactive({
      toupper(paste(c(input$main, input$desert), collapse = " & "))
    })
  )

  output$myorder <- renderText(menuR())

}

shinyApp(ui, server)

修改

我之前误解了这个问题。您可以使用eventReactive()监视输入并在用户输入更改时更改。我还为用户尚未点击操作按钮添加了默认值。

library(shiny)

ui <- fluidPage(
  fluidRow(
    column(2, radioButtons("main", label = "Main dish", choices = list("salad", "pasta"))),
    column(2, radioButtons("desert", label = "Desert", choices = list("fruit", "cake"))),
    column(8, actionButton("extra", "Louder!", style="background-color: #ffdb99"))
  ),
  verbatimTextOutput("myorder")
)

server <- function(input, output, session) {

  # Set a 'default' value for the output
  default.menuR <- reactive({
    paste(c(input$main, input$desert), collapse = " & ")
  })

  menuR <- eventReactive(input$extra, {
    toupper(paste(c(input$main, input$desert), collapse = " & "))
  })

  # Initial state of the button is 0, which displays 'default' value
  output$myorder <- renderText({
    if (input$extra == 0) {
      return(default.menuR())
    }
    menuR()
  })

}

shinyApp(ui, server)

希望这会有所帮助！

Answer 2

我接受了Vishesh的建议并使之生效。它看起来与我的原始示例没有太大不同，仍然需要重复几行代码。每次更改一个小部件时，它都会覆盖反应性对象。

library(shiny)

ui <- fluidPage(
    fluidRow(
        column(2, radioButtons("main", label = "Main dish", choices = list("salad", "pasta"))),
        column(2, radioButtons("dessert", label = "dessert", choices = list("fruit", "cake"))),
        column(8, actionButton("extra", "Louder!", style="background-color: #ffdb99"))
    ),
    verbatimTextOutput("myorder")
)

server <- function(input, output, session) {

    menuR <- reactive({
        paste(c(input$main, input$dessert), collapse = " & ")
    })

    # Render text when app loads
    output$myorder <- renderText(menuR())

    # Update reactive object and re-render text (button 'extra')
    observeEvent(
        input$extra,{
            temp <- toupper(paste(c(input$main, input$dessert), collapse = " & "))
            menuR <<- reactive(temp)
            output$myorder <- renderText(menuR())
        }
    )

    # Update reactive object and re-render text (button 'main' or 'dessert')
    observeEvent(c(input$main, input$dessert),{
        menuR <- reactive(paste(c(input$main, input$dessert), collapse = " & "))
        output$myorder <- renderText(menuR())
    })

}

shinyApp(ui, server)

R Shiny：使用input $值创建reactiveValues对象

2 个答案: