【问题标题】：Using textInput both as input and output fields in shiny使用 textInput 作为闪亮的输入和输出字段
【发布时间】：2015-02-20 20:32:21
【问题描述】：

我是 Shiny 的新手，但已经发现它对于快速 GUI 开发最有趣。

我试图得到以下信息：我基本上有两个 textInputs。当第一个更改时，我希望第二个自动更新一些新值（不使用任何 actionButton），反之亦然。但我得到了一个无限循环。

更新意味着添加一个的简单示例是：

server.r

library(shiny)

shinyServer(function(input, output,session) {

  observe({
    newval = as.numeric(input$field1)+1
    updateTextInput(session,"field2",value=newval)
  })

  observe({
    newval = as.numeric(input$field2)+1
    updateTextInput(session,"field1",value=newval)
  })
})

ui.R

library(shiny)   

shinyUI(basicPage(

    textInput("field1", "Field 1", ""),
    textInput("field2", "Field 2", "")

))

我尝试将“input$field1”和“input$field2”封装在对isolate() 的调用中，但这并不能解决问题。

有什么建议吗？提前非常感谢，

伊冯尼克

【问题讨论】：

您希望在这里发生什么 - 似乎您希望文本字段永远增加。你能澄清一下这应该如何为用户工作吗？
Paul，无限更新循环正是我想要阻止的，因此一个字段在更改另一个字段时只更新一次。

标签： r shiny

【解决方案1】：

以防万一有人遇到类似问题，我终于找到了以下解决方案，使用布尔反应值作为激活/阻止文本输入更新的标志。

ui.R

library(shiny)   

shinyUI(basicPage(

  textInput("value1", "Value 1", ""),
  textOutput("value1TRUE"),
  textInput("value2", "Value 2", ""),
  textOutput("value2TRUE")
))

服务器.R

library(shiny)

shinyServer(function(input, output,session) {

  myVals = reactiveValues(changeValue1=TRUE,changeValue2=TRUE)

  observe({
    if( (input$value1=="") || is.na(input$value1) ) return(NULL)
    isolate({
      if(!myVals$changeValue2) {
        myVals$changeValue2 = TRUE
        return(NULL)
      }
      myVals$changeValue1 = FALSE
      updateTextInput(session,"value2",value=as.numeric(input$value1)+1)
    })
  })

  observe({
    if( (input$value2=="") || is.na(input$value2) ) return(NULL)
    isolate({
      if(!myVals$changeValue1) {
        myVals$changeValue1 = TRUE
        return(NULL)
      }
      myVals$changeValue2 = FALSE
      updateTextInput(session,"value1",value=as.numeric(input$value2)+1)
    })
  })

  output$value1TRUE = renderText(as.character(myVals$changeValue1))
  output$value2TRUE = renderText(as.character(myVals$changeValue2))
})

如果某个闪亮的大师找到了更轻松的解决方案，我很想知道它:-)

最好，伊冯尼克

【讨论】：