如何在R Shiny中点击actionButton后重置f7SmartSelect的值？

我明白你遇到的问题了——shinyjs::reset()对f7SmartSelect不起作用，因为它是基于Framework7的专属组件，不是普通的Shiny输入控件。你找到的JS代码方向是对的，但需要针对Framework7的smart select实例来调整。

下面是完整的可运行解决方案，我会一步步解释：

library(shiny)
library(shinyMobile)

shinyApp(
  ui = f7Page(
    f7SingleLayout(
      navbar = f7Navbar(title = "Reset Smart Select Demo"),
      f7Button("resetSmartSelect", "Reset Smart Select"),
      f7SmartSelect(
        inputId = "smartId",
        multiple = TRUE,
        label = "Choose a variable:",
        choices = colnames(mtcars)[-1],
        openIn = "popup"
      ),
      # 加入自定义JavaScript代码
      tags$script(HTML("
        document.addEventListener('shiny:connected', function() {
          // 监听重置按钮的点击事件
          document.getElementById('resetSmartSelect').addEventListener('click', function() {
            // 获取Framework7的全局实例
            const app = window.f7;
            // 通过inputId定位到对应的smart select组件
            const smartSelect = app.smartSelect.get('#smartId');
            
            // 清空多选的选中值（单选场景可改为null）
            smartSelect.setValue([]);
            // 手动同步Shiny输入值，确保server端能拿到最新的空状态
            Shiny.setInputValue('smartId', []);
          });
        });
      "))
    )
  ),
  server = function(input, output, session) {
    # 可选：监听input值变化，验证重置是否生效
    observe({
      print(input$smartId)
    })
    
    observeEvent(input$resetSmartSelect, {
      # 这里无需额外R代码，JS已完成所有重置逻辑
    })
  }
)

关键逻辑说明： #

• Framework7实例获取：window.f7是shinyMobile初始化后暴露的Framework7全局实例，必须通过它来操作专属组件。
• 定位目标组件：app.smartSelect.get('#smartId')通过你定义的inputId精准找到对应的smart select实例。
• 清空选中状态：调用smartSelect.setValue([])直接操作组件的选中值，多选场景用空数组，单选场景可传入null。
• 同步Shiny状态：用Shiny.setInputValue('smartId', [])手动通知Shiny更新输入值，确保server端的input$smartId能同步变为空数组（对应你需要的“无选中值”状态）。

这样点击重置按钮后，不仅UI上的复选框会被取消选中，Shiny后端也能正确接收到空值状态。

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