我们可以创建一个没有ui的模块，然后在执行循环时将输入的名称作为参数传递。

reset_server <- function(id, refresh_button, refresh_name) {
  moduleServer(
    id,
    function(input, output, session) {
      ns <- session$ns
      observeEvent(refresh_button(), {
        shinyjs::reset(refresh_name, asis = TRUE)
      })
    }
  )
}

示例代码：

ui <- fluidPage(
  shinyjs::useShinyjs(),
  c("assay_id_refresh", "drug_info_refresh", "drug_target_refresh") |>
    purrr::map(\(x) actionButton(inputId = x, label = x)),
  c("assay_id_form", "drug_info_form", "drug_target_form") |>
    purrr::map(\(x) selectInput(
      inputId  = x,
      label    = x,
      choices  = 1:10,
      multiple = TRUE
    ))
)

server <- function(input, output, session) {
  purrr::walk2(
    .x = c("assay_id_refresh", "drug_info_refresh", "drug_target_refresh"),
    .y = c("assay_id_form", "drug_info_form", "drug_target_form"),
    .f = ~ reset_server(
      id             = .x,
      refresh_button = reactive(input[[.x]]),
      refresh_name   = .y
    )
  )
}

shinyApp(ui, server)

也许像这样：

xxx <- c(
  "structure_explorer_",
  "property_",
  ......
)

for(x in xxx) {
  observeEvent(input[[paste0(x, "refresh")]], {
    shinyjs::reset(paste0(x, "form"))
  })
}