Развертывание приложений Rook на внутреннем веб-сервере R

Question

Я разрабатываю Rook Apps, и он отлично работает. поэтому я хочу развернуть под Rstudio с разными IP и PORT: поэтому я использую код Джеффри Хорнера:

http://jeffreyhorner.tumblr.com/post/33814488298/deploy-rook-apps-part-ii

Но не работает! с последним коммитом Rook в github и R версии 3.4.3:

 Error in get(name, envir = asNamespace(pkg) , inherits =FALSE):
object 'startHTTPD' introuvable 
calls : ::: -> get

На самом деле, если вы проверите пакет инструментов ::. функция startHTTPD больше не существует в tools :: environment. Брено Попробуй это исправить, но проблема все еще та же для меня.

Кто-нибудь сталкивается с этой проблемой или у меня есть решение.

Спасибо.

Answer 1

Я знаю, что немного опоздал, чтобы ответить на это, но это поставило меня в тупик, и я понял это. Имя функции недавно изменилось на «C_startHTTPD». Итак, код, который вам нужен для запуска внутреннего http-сервера для rook, теперь:

if (as.integer(R.version[["svn rev"]]) > 59600) {
  status <- .Call(tools:::C_startHTTPD, myInterface, myPort)
} else {
  status <- .Internal(C_startHTTPD(myInterface, myPort))
}