需要重置操作按钮（或替代）

Question

我在 shiny 中使用多个操作按钮时遇到了一些问题。我构建了一个可以插入文本的文本区域。处理此文本使得三个字符串成为结果。然后将这三个字符串作为三个操作按钮的标签。单击其中一个按钮时，它应该操纵输入文本。

当我单击操作按钮时，文本被正确操作，但操作会无限期地重复。这是因为无法重置操作按钮。我找到了多个处理此问题的网页，并且尝试了多种解决方案和变通方法，但似乎没有任何效果。我提供了以下代码：

server.R

library(shiny)
library(stringi)

new_word_f <- function(x) {
      x <- substr(x, nchar(x), nchar(x)) == " " 
}

modify_text_input <- function(new_word, input_text, word_to_remove, answer) {
      if (new_word == TRUE) {
            paste(input_text, answer, " ")
      } else {
             paste(stri_replace_last_regex(input_text, word_to_remove,     answer), " ")
      }
}


start_input_text <- "Testing the lines "
ngram_input <- "lines"
answer <- c("a", "b", "c")

## Start shiny app
shinyServer(function(input, output) {

  ## New word or current mid-word
  new_word <- reactive({new_word_f(input$text_in)})

  output$input_textarea <- renderUI({tags$textarea(id="text_in", rows=3, cols=40, start_input_text)})
  output$text1 <- renderText({input$text_in})
  output$text2 <- renderText({new_word()})

  output$but1 <- renderUI({actionButton("action1", label = answer[1])})
  output$but2 <- renderUI({actionButton("action2", label = answer[2])})
  output$but3 <- renderUI({actionButton("action3", label = answer[3])})


  ## On button press
  observeEvent(input$action1, {output$input_textarea <- renderUI({tags$textarea(id="text_in", rows=3, cols=40, modify_text_input(new_word(), input$text_in, ngram_input, answer[1]))})})
  observeEvent(input$action2, {output$input_textarea <- renderUI({tags$textarea(id="text_in", rows=3, cols=40, modify_text_input(new_word(), input$text_in, ngram_input, answer[2]))})})
  observeEvent(input$action3, {output$input_textarea <- renderUI({tags$textarea(id="text_in", rows=3, cols=40, modify_text_input(new_word(), input$text_in, ngram_input, answer[3]))})})


})

ui.R

library(shiny)
library(stringi)

shinyUI(
  fluidPage(
        titlePanel("Word prediction"),

        sidebarLayout(
              sidebarPanel(
                    uiOutput("input_textarea"),
                    uiOutput("but1"),
                    uiOutput("but2"),
                    uiOutput("but3")

              ),

              mainPanel(
                    textOutput("text1"),
                    textOutput("text2")

              )
        )
  )
)

Answer 1

问题是你在 observeEvent 中使用的 renderUI 通过 new_word() 函数和 input$text_in 依赖于 input$text_in第二个参数。所以每次文本更改时，都会再次调用 renderUI，这就是无限重复操作的原因。

尝试使用 isolate 来删除这些依赖项，例如：

observeEvent(input$action1, {output$input_textarea <- renderUI({
tags$textarea(id="text_in", rows=3, cols=40, modify_text_input(isolate(new_word()),isolate(input$text_in),ngram_input,answer[1]))})
})

需要重置操作按钮（或替代）

Actionbutton reset needed (or alternative)

r

shiny

reset

action-button