Как добавить пример пакета R, показывающий блестящее приложение?

#r #shiny

#r #блестящий

Вопрос:

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

 shinyAppFunction(interval_data)
  

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

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

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

 checking examples ...
  

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

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

Ответ №1:

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

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

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