RStudio运行Shiny应用报错：useShinyjs函数未找到求助

你的判断没错，问题根源就是RStudio运行Shiny应用时的代码执行顺序：点击"运行应用"按钮时，RStudio会优先解析ui.r的内容，但此时app.r里的包加载逻辑还没执行，导致useShinyjs()找不到对应的函数。手动逐行执行app.r时，包已经提前加载到当前环境，所以能正常运行。以下是几个可行的解决方法：

方法1：使用global.R统一管理包加载 #

Shiny应用启动时会优先执行global.R中的代码，再加载ui.r和server.r，把包加载逻辑放到这个文件里能确保所有依赖在UI渲染前准备好：

创建global.R文件，写入以下代码：

required_packages <- c("tidyverse", "deSolve", "shinyjs", "shiny", "shinyhelper", "shinyvalidate", "shinyWidgets")

# 循环加载包，未安装则自动安装
for (pkg in required_packages) {
  if (!require(pkg, character.only = TRUE)) {
    install.packages(pkg, dependencies = TRUE)
    require(pkg, character.only = TRUE)
  }
}

之后删除app.r里的包加载代码，点击"运行应用"按钮即可正常启动。

方法2：修改app.r的执行逻辑，确保先加载包再导入UI #

调整app.r的结构，先完成包加载，再导入ui.r和server.r内容，最后启动应用：

# 加载所有必需包
required_packages <- c("tidyverse", "deSolve", "shinyjs", "shiny", "shinyhelper", "shinyvalidate", "shinyWidgets")
packages_loaded <- lapply(required_packages, require, character.only = TRUE) |> as.logical() |> all()

# 包加载失败时终止并提示
if (!packages_loaded) {
  stop("部分依赖包加载失败，请检查包的安装状态")
}

# 导入UI和Server逻辑
source("ui.r")
source("server.r")

# 启动Shiny应用
shinyApp(ui = ui, server = server)

方法3：临时解决：在ui.r开头显式加载shinyjs #

如果不想调整文件结构，可以在ui.r的最顶部添加library(shinyjs)，确保useShinyjs()函数能被找到：

library(shinyjs)

fluidPage(
  useShinyjs(),
  div(
    titlePanel("Compartmental Models of Epidemiology")
  ),
  navbarPage( # 省略其他内容...
  )
)

不过这种方法不推荐长期使用，因为会导致包重复加载，更规范的方式还是用前两种方法统一管理依赖。

内容的提问来源于stack exchange，提问作者Khanh Lệ