Fatal编程技术网
  • r/
  • R 输入和反应上下文

R 输入和反应上下文

r shiny

R 输入和反应上下文,r,shiny,reactive,R,Shiny,Reactive,我正在建造一个shinyApp，但自从我开始工作以来，有些东西我还不太清楚。我想知道我们如何在服务器函数中使用输入变量，而不将它们放在渲染器中 例如，这里是我在服务器函数中代码的一小部分： server <- function(input,output){ output$text <- renderText({"My text"}) updating <- reactive( {if (input$nbenfants==0){ updateNumericInput(ses

我正在建造一个shinyApp，但自从我开始工作以来，有些东西我还不太清楚。我想知道我们如何在服务器函数中使用输入变量，而不将它们放在渲染器中

例如，这里是我在服务器函数中代码的一小部分：

server <- function(input,output){

output$text <- renderText({"My text"})

updating <- reactive( {if (input$nbenfants==0){
 updateNumericInput(session,"n2",value=0)
 updateNumericInput(session,"n3",value=0)
 updateNumericInput(session,"n4",value=0)
 updateNumericInput(session,"n5",value=0)
 updateNumericInput(session,"n6",value=0)
 updateNumericInput(session,"n7",value=0)
 updateNumericInput(session,"n8",value=0)
}})

server我认为您应该使用observeEvent在输入$nbenfant值更改时执行操作：


server <- function(input,output){

output$text <- renderText({"My text"})

observeEvent(input$nbenfant,{
if(input$nbenfant ==0) {
updateNumericInput(session,"n2",value=0)
updateNumericInput(session,"n3",value=0)
updateNumericInput(session,"n4",value=0)
updateNumericInput(session,"n5",value=0)
updateNumericInput(session,"n6",value=0)
updateNumericInput(session,"n7",value=0)
updateNumericInput(session,"n8",value=0)
}})



服务器