Как добавить Пример пакета R с приложением Shiny?

Question

Я делаю пакет в R. Одна из функций имеет блестящее приложение:

shinyAppFunction(interval_data)

Теперь я сделал пример раздела:

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

Теперь, когда я запускаю проверку CMD R, она достигает

checking examples ...

Эта строка никогда не заканчивается (т. Е. Это занимает бесконечное количество времени, поэтому пакет никогда полностью не проверяется).

Я предполагаю, что это потому, что вызывается функцияручное отображение, она работает правильно, но никогда не выходит из сеанса. Так что это просто остается на неопределенный срок, и поэтому «проверка примеров ...» никогда не заканчивается. Как я могу это исправить, чтобы показать пример, но также убедиться, что пример проходит проверку CMD?

Answer 1

Оберните блестящий код приложения внутри блока if (interactive()) {, чтобы он работал только в интерактивном режиме.

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

Вот пример использования этого в моем собственном коде