基于模块化的Shiny动态变量绘图故障排查求助

你将输入组件（metricDropdownTab1UI）和输出组件（plotTab1UI）分配了不同的命名空间ID（metric_dropdown_ui_tab1和plot_ui_tab1），导致plotTab1Server模块内的input$metric无法读取到pickerInput的输入值——输入与输出不在同一模块命名空间下，server模块只能访问自身命名空间内的input对象。

1. 统一UI端命名空间ID #

修改ui.R中tab1的内容，让输入、输出组件使用同一个ID（比如tab1_module）：

tabItem(
  tabName = "tab1",
  
  metricDropdownTab1UI("tab1_module"), 
  plotTab1UI("tab1_module")
  
)

2. 同步server端模块调用 #

修改server.R，使模块调用的ID与UI端保持一致：

plotTab1Server("tab1_module")

（可选）优化绘图函数写法 #

aes_string已被弃用，建议改用更安全的.data引用方式：

fun1 <- function(df, var1, var2) {
  req(df, var1, var2)
  ggplot(df, aes(x = .data[[var1]], y = .data[[var2]])) +
    geom_point() +
    labs(x = names(varnames[which(varnames == var1)]), 
         y = names(varnames[which(varnames == var2)])) 
}

修改完成后，pickerInput的输入会被同一命名空间的server模块捕获，input$metric可正常传递给fun1生成对应散点图。

内容的提问来源于stack exchange，提问作者shsh