R shiny: серый экран из-за ограничения времени ожидания

Question

У меня проблема при попытке поделиться приложением R Shiny в локальной сети с помощью функции runApp(host = "0.0.0.0"). На сервере все работает нормально, но на стороне клиента всегда вылетает: экран стал серым примерно через 1 секунду c при запуске приложения.

Я исследовал это, и похоже, что проблема связана с ограничениями по таймауту при запуске приложения.

Есть у кого-нибудь идея побороть эту проблему? Есть ли возможность настроить параметр loadTimeout в приложении Shiny (я уточняю, что это приложение размещено не на сервере Shiny, а только с экземпляром R Studio Desktop)

Большое спасибо за вашу помощь!

Answer 1

это сработало для меня в моей домашней сети.

library(shiny)


# Running a Shiny app object
app <- shinyApp(
    ui = bootstrapPage(
        numericInput('n', 'Number of obs', 100),
        plotOutput('plot')
    ),
    server = function(input, output) {
        output$plot <- renderPlot({ hist(runif(input$n)) })
    }
)
runApp(app, host = getOption("shiny.host", "192.168.1.25"))

, а затем на другом компьютере я открыл веб-браузер на 192.168.1.25:6938, указанный порт c отображался внутри Rstudio с помощью Shiny

Answer 2

Возможно, вы захотите использовать команду runUrl( "<the weblink>") внутри клиентского сеанса Rstudio, вот ссылка . Похоже, на клиентском компьютере также потребуется установить Rstudio. вот аналогичный вопрос Stackoverflow