问无法在闪亮的模块之间进行数据通信
EN

Stack Overflow用户

提问于 2021-09-26 16:59:08

回答 1查看 223关注 0票数 0

我正在尝试构建一个闪亮的应用程序，它使用几个模块在它们之间进行通信并共享数据。我尝试创建一个可以复制的简单示例，以显示我所面临的问题。第一个模块允许用户从所选数据集中选择数据集和列，然后在表中显示该列。第一个模块的服务器部分返回有关所选列的统计信息列表(最小、平均、最大和sd)。其思想是使用这些统计数据在创建textOutputs的第二个模块中显示它们。问题是应用程序中没有反应性。即使在更改数据集和列时，textOutputs中的值也是相同的。

### Module 1
mod_selectVar_ui <- function(id){
  ns <- NS(id)
  tagList(
    selectInput(ns("dataset"), "Choose a dataset:",choices = c("rock", "pressure", "cars")),
    selectInput(ns("colonnes"),label = "Choose some columns", choices = NULL, multiple = FALSE),
    tableOutput(ns("table"))
  )
}

#'
#' 
mod_selectVar_server <- function(id){
  moduleServer(id, function(input, output, session){
    datasetInput <- reactive({
      switch(input$dataset,
             "rock" = rock,
             "pressure" = pressure,
             "cars" = cars)
    })
    
    observe({
      colonnes <- names(datasetInput())
      updateSelectInput( session, "colonnes", choices = colonnes)
    })
    
    data <- reactive({
      req(input$colonnes)
      datasetInput()[, input$colonnes]
    })
    output$table <- renderTable({
      head(data())
    })
    
    values <- reactive({
      list(
        meanVar = mean(data()),
        maxVar = max(data()),
        minVar = min(data()),
        sdVar = sd(data())
      )
    })
    return(values)
  })
}


### Module 2
mod_textOu_ui <- function(id){
  ns <- shiny::NS(id)
  shiny::tagList(
    shiny::textOutput(ns("txt"))
  )
}

mod_textOu_server <- function(id, texte){
  moduleServer(id,
               function(input, output, session){
                 output$txt <- renderText({
                   texte
                 })
               }
  )
}

### Main App
ui <- fluidPage(
  fluidRow(
    column(3,
           mod_textOu_ui("1")
    ),
    column(3,
           mod_textOu_ui("2")
    ),
    column(3,
           mod_textOu_ui("3")
    ),
    column(3,
           mod_textOu_ui("4")
    )
  ),
  fluidRow(
    mod_selectVar_ui("1")
  )
)

server <- function(input, output, session){
  values <- mod_selectVar_server("1")
  
  mod_textOu_server("1",values()$meanVar)
  
  mod_textOu_server("2",values()$maxVar)
  
  mod_textOu_server("3",values()$minVar)
  
  mod_textOu_server("4",values()$sdVar) 
}

shinyApp(ui ,server )

shiny

shiny-reactivity

玩转 EdgeOne Pages 有奖征集！

参与发文赢取龙鹅、按摩器、机械键盘等周边~

回答 1

Stack Overflow用户

回答已采纳

发布于 2021-09-27 11:32:55

为您的模块mod_selectVar_server("1")和mod_textOu_server("1",values()$meanVar)提供了一个重复的ID 1。所有is都必须是唯一的，并且使用的数字不是recommended.
Like @Limey说，您不能直接访问服务器顶层的反应性值。必须在反应性上下文中访问反应性值。
当您更改数据集时，数据将是无效的，它需要等待列名更新，所以我添加了req(all(input$colonnes %in% names(datasetInput())))以防止短暂出现难看的红色警告。

### Module 1
mod_selectVar_ui <- function(id){
    ns <- NS(id)
    tagList(
        selectInput(ns("dataset"), "Choose a dataset:",choices = c("rock", "pressure", "cars")),
        selectInput(ns("colonnes"),label = "Choose some columns", choices = NULL, multiple = FALSE),
        tableOutput(ns("table"))
    )
}

#'
#' 
mod_selectVar_server <- function(id){
    moduleServer(id, function(input, output, session){
        datasetInput <- reactive({
            switch(input$dataset,
                   "rock" = rock,
                   "pressure" = pressure,
                   "cars" = cars)
        })
        
        observe({
            colonnes <- names(datasetInput())
            updateSelectInput(session, "colonnes", choices = colonnes)
        })
        
        data <- reactive({
            req(input$colonnes)
            req(all(input$colonnes %in% names(datasetInput())))
            datasetInput()[, input$colonnes]
        })
        output$table <- renderTable({
            head(data())
        })
        
        values <- reactive({
            list(
                meanVar = mean(data()),
                maxVar = max(data()),
                minVar = min(data()),
                sdVar = sd(data())
            )
        })
        return(values)
    })
}


### Module 2
mod_textOu_ui <- function(id){
    ns <- shiny::NS(id)
    shiny::tagList(
        shiny::textOutput(ns("txt"))
    )
}

mod_textOu_server <- function(id, texte, item){
    moduleServer(id,
                 function(input, output, session){
                     output$txt <- renderText({
                         texte()[[item]]
                     })
                 }
    )
}

### Main App
ui <- fluidPage(
    fluidRow(
        column(3,
               mod_textOu_ui("m1")
        ),
        column(3,
               mod_textOu_ui("m2")
        ),
        column(3,
               mod_textOu_ui("m3")
        ),
        column(3,
               mod_textOu_ui("m4")
        )
    ),
    fluidRow(
        mod_selectVar_ui("s1")
    )
)

server <- function(input, output, session){
    values <- mod_selectVar_server("s1")
    
    mod_textOu_server("m1",values, "meanVar")
    
    mod_textOu_server("m2",values, "maxVar")
    
    mod_textOu_server("m3",values, "minVar")
    
    mod_textOu_server("m4",values, "sdVar") 
}

shinyApp(ui ,server )