如何添加显示Shiny App的R包示例？

Question

我正在用R做一个包装。其中一个功能有一个闪亮的应用程序：

shinyAppFunction(interval_data)

现在，我将示例部分设为：

#' @examples 
#' data(interval_data)
#' shinyAppFunction(interval_data)

现在，当我运行R CMD检查并进入

checking examples ...

此行永不终止（即，它花费了无限长的时间，因此从未完全检查过软件包）。

我猜这是因为shinyAppFunction被调用了，它可以正常工作，但是它永远不会退出会话。因此，它只是无限期地停留，因此“检查示例...”从未完成。如何解决此问题，以显示示例，但又确保示例通过CMD检查？

Answer 1

将闪亮的应用程序代码包装在if (interactive()) {块中，以便仅在交互模式下运行。

#' @examples 
#' if (interactive()) {
#'   data(interval_data)
#'   shinyAppFunction(interval_data)
#' }

Here's an example usage of that in my own code