Fatal编程技术网
  • r/
  • R 将反应式服务器值传递给模块

R 将反应式服务器值传递给模块

r shiny

R 将反应式服务器值传递给模块,r,shiny,shiny-reactivity,R,Shiny,Shiny Reactivity,我有一个闪亮的应用程序，服务器功能如是 shinyServer(function(input, output) { chosen_fam <- reactive({ input$fam }) output$newui <- renderUI({ NewProductUI("newproduct", fam = chosen_fam()) }) output$newbtn <- renderUI({ NewProductButtonUI("newproduct",

我有一个闪亮的应用程序，服务器功能如是

shinyServer(function(input, output) {
 chosen_fam <- reactive({ input$fam })

  output$newui <- renderUI({  NewProductUI("newproduct", fam = chosen_fam()) })
  output$newbtn <- renderUI({ NewProductButtonUI("newproduct", fam =  chosen_fam()) })

  callModule(NewProduct, id = "newproduct", fam =  chosen_fam())
})

shinyServer（功能（输入、输出）{

选择\u fam您必须给出无功导体本身：


callModule(NewProduct, id = "newproduct", fam =  chosen_fam)


（无括号）。在模块中：


row <- c(fam(), input$variable)



行

row <- c(fam(), input$variable)