R Shiny多输入场景禁用action button时报错找不到enable函数如何解决

报错原因 #

该报错是R环境无法定位enable函数导致的，常见触发场景有两个：

• 本地未安装shinyjs包，不存在该函数可供调用
• 已安装shinyjs包，但调用enable/disable函数时未指定来源：要么没有提前加载shinyjs包，要么调用时没有加shinyjs::命名空间前缀，R无法识别函数所属的包。

解决方法 #

1. 先确认shinyjs包已安装，未安装的话先运行安装命令：

install.packages("shinyjs")

2. 选择以下任意一种方案修复调用问题即可：
   • 方案一：在所有代码的最开头添加加载shinyjs包的语句，之后可以直接调用包内函数：

   library(shinyjs)
   

   • 方案二：无需提前加载包，确保server代码中所有enable、disable调用都加上shinyjs::前缀，示例如下：

   observe({
     if(input$CEM!="" && input$Water!= "" && input$PFA!=""){
       shinyjs::enable("submit")
     } else {
       shinyjs::disable("submit")
     }
   })
   

额外优化提示 #

你现有代码的observeEvent逻辑中，req校验仅判断了水泥和水的输入合法性，漏掉了粉煤灰（PFA）的校验，建议修改为req(cem_con,wat_con,pfa_con)，避免PFA输入不符合规范时程序仍继续运行。

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