小编Maa*_*ten的帖子

我在使用闪亮的多个动作按钮时遇到了一些麻烦.我构建了一个可以插入文本的文本区域.操纵该文本使得结果是三个字符串.然后将这三个字符串作为三个动作按钮的标签.单击其中一个按钮时,它应该操作输入文本.

当我单击动作按钮时,文本被正确操作,但动作无限重复.这是因为无法重置操作按钮.我找到了多个处理这个问题的网页,我尝试了多种解决方案和解决方法,但似乎没有任何效果.我已经提供了以下代码:

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)}) …