Ограничение числа пользователей локально размещенного приложения R shiny

Question

Я хотел бы ограничить количество пользователей моего локально размещенного приложения для одного пользователя в любой момент.

В идеале, когда второй пользователь попытался запустить приложение одновременно (пользователи получают доступ к приложению, введя локальный IP-адрес в поле адреса), приложение отобразит сообщение по умолчанию и прекратит дальнейший прогресс. Обнуление любых других пользовательских команд может не иметь значения, если единственное, что отображается при вводе, - это сообщение об отказе.

Содержание приложения не имеет значения, так что мы можем использовать это приложение в качестве примера: http://shiny.rstudio.com/gallery/tabsets.html

Спасибо за любую помощь или информацию вы можете дать.

Answer 1

Я бы не рекомендовал это делать, я думаю, что это очень опасно, но есть способы, которыми вы могли бы взломать это вместе. Вот одно решение (как я уже сказал, он взломан, и я не сделал бы это сам). Основная идея состоит в том, чтобы иметь глобальную переменную, которая отслеживает, использует ли кто-либо приложение. Если никто не использует приложение, покажите приложение и включите флаг, и обязательно выключите флаг, когда пользователь выйдет.

shinyBusy <- FALSE 

runApp(shinyApp(
    ui = fluidPage(
    shinyjs::useShinyjs(), 
    shinyjs::hidden(
     h1(id = "busyMsg", "App is busy") 
    ), 
    shinyjs::hidden(
     div(
     id = "app", 
     p("Hello!") 
    ) 
    ) 
), 
    server = function(input, output, session) { 
    if (shinyBusy) { 
     shinyjs::show("busyMsg") 
    } else { 
     shinyBusy <<- TRUE 
     session$onSessionEnded(function() shinyBusy <<- FALSE) 
     shinyjs::show("app") 
    } 
    } 
), 
launch.browser = TRUE) 

Примечание: для того, чтобы показать/скрыть элементы приложения, я использую пакет, который я написал shinyjs