如何使用shinytest为R Shiny模拟随机用户输入并记录点击流

shinytest完全可以满足你说的带随机交互的自动化测试需求，它不是只能做预定义固定点击流的测试。本质上shinytest的测试脚本就是普通R代码，你可以自由嵌入任意逻辑，不需要被固定操作步骤限制。

落地实现方法 #

• 基础流程搭建：先按shinytest标准方式初始化测试app实例，用内置的app$uploadFile()方法就能完成测试文件的自动上传，和固定流程测试的写法完全一致。
• 随机操作实现：
  • 你可以直接在测试脚本里调用R的随机数函数生成操作指令，不用提前写死每一步动作。比如针对DT表行选：先通过app$getAllValues()拿到当前表格的总行数，用sample()随机生成要选中的行号，再调用app$sendInput()更新DT对应的输入值，就能模拟用户随机选行的操作。
  • 针对按钮点击：把所有功能按钮的inputId整理成向量，每次随机抽取一个按钮ID，调用app$click()就能模拟随机点按钮的操作。
• 点击流记录：在测试脚本开头初始化一个空的记录对象（列表或者数据框都行），每执行一次操作，就把操作类型、操作对象、传入的参数（比如选中的行号、点击的按钮ID、操作时间戳）追加到记录对象里，所有操作跑完之后把这个记录对象导出成csv/rds文件留存就行。如果需要更全的输入快照，也可以每步操作后拉取全量input值一起存。
• 结果校验环节：所有随机操作执行完后，调用app$click()触发应用的保存按钮，等服务器端文件写入完成后，直接读取服务器上保存的筛选结果文件，和你记录的点击流逻辑做交叉比对，就能验证结果是否符合操作预期。

实操提示 #

• 如果需要复现某一次测试的问题，只需要在测试脚本开头用set.seed()固定随机种子，就能复现完全一致的随机操作序列，不需要手动写死步骤。
• 涉及文件上传、DT表格渲染这类异步操作时，记得在对应操作后加等待逻辑（用app$waitFor()判断元素加载完成，或者加短时间等待），避免因为元素没渲染完导致后续操作失效。

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