Как получить доступ к приложению Rshiny с компьютера A на компьютер B по локальной сети?

Question

Проблема, с которой я сталкиваюсь, заключается в том, что я не могу запустить свое приложение на компьютере B по локальной сети.Я могу легко запустить его на машине А, поскольку я создал ее только там.

ui.R

    fluidPage(
      title = 'Creating a UI from a loop',
      sidebarLayout(
        sidebarPanel(
          # create some select inputs
          lapply(1:5, function(i) {
            selectInput(paste0('a', i), paste0('SelectA', i),
                choices = sample(LETTERS, 5))
          })
        ),

        mainPanel(
          verbatimTextOutput('a_out'),

          # UI output
          lapply(1:10, function(i) {
            uiOutput(paste0('b', i))
          })
        )
      )
    )

server.R

    function(input, output, session) {  
      output$a_out <- renderPrint({
        res <- lapply(1:5, function(i) input[[paste0('a', i)]])
        str(setNames(res, paste0('a', 1:5)))
      })

      lapply(1:10, function(i) {
        output[[paste0('b', i)]] <- renderUI({
          strong(paste0('Hi, this is output B#', i))
        })
      })
    }

app.R

    setwd("/home/abc/Rdeploy")
    runApp(getwd())

Это веб-ссылка для доступа к приложению с компьютера A

127.0.0.1: 3786

Поэтому, пожалуйста, объясните мне, как запустить это приложение на компьютере Bтакже, чтобы я мог легко получить к нему доступ через веб-ссылку, как указано выше.Кроме того, я не хочу устанавливать Блестящий сервер или Блестящий сервер Про для этой простой цели.

Answer 1

Таким образом, он доступен через все IP-адреса вашей машины:

app <- shinyApp(ui = ui, server = server)
runApp(app, host = "0.0.0.0", port = 80)

(порт на ваше усмотрение)

Answer 2

Пока ваши компьютеры A и B подключены к одному и тому же Wi-Fi, это должно работать:

shinyApp(ui = ui, server = server,options = list(port=5000,host="your IP"))

Если нет, я рекомендую shinyapps.io для развертывания.Вы можете выбрать произвольный номер порта.