Tengo el plan estándar shinyapps.io, doy acceso a los usuarios a través de su identificación de correo electrónico. https://www.shinyapps.io/
Requisitos: - Quiero escribir un código para que el acceso se elimine de forma permanente después de cierto tiempo una vez que hayan iniciado sesión correctamente.
La aplicación debe detenerse solo para un usuario en particular cuyo límite de tiempo haya terminado y no debe afectar a otros usuarios que hayan iniciado sesión de todos modos (que hayan iniciado sesión recientemente y su límite de tiempo no haya terminado).
Que he hecho:-
Hice esta pregunta en la comunidad de rstudio. https://community.rstudio.com/t/how-to-automatically-remove-access-permanently-to-shiny-app-after-fixed-time-once-the-be-logged-in/134564/2
Según la sugerencia, probé el siguiente código,
library(shiny) library(htmltools) ui <- fluidPage( h1('My Shiny app'), p('You will be disconnected after 5 seconds...'), tags$script(HTML( " document.addEventListener('DOMContentLoaded', (event) => { setTimeout(() => {Shiny.onInputChange('disconnect', true)}, 5000) } ) " )) ) server <- function(input, output, session) { observeEvent(input$disconnect, { if (input$disconnect) shiny::stopApp() }) } shinyApp(ui, server)Salir:-
Si bien la aplicación se cierra cuando se prueba en Rstudio, simplemente se desconecta en el navegador y, si actualiza el sitio web, obtiene acceso nuevamente.
¿Hay alguna forma de que una vez que el inicio de sesión sea exitoso por primera vez, después de cierto tiempo, el acceso se elimine de forma permanente?
¿Alguien puede modificar el código o mostrar algún ejemplo/enlace donde se haya discutido anteriormente?
Lo apreciaré mucho.
Gracias
Deberá configurar algunas cookies. Este enfoque no es infalible (el usuario puede eliminar las cookies), pero en el siguiente ejemplo de juguete notará que, por primera vez, cuando inicia la aplicación, se cerrará después de 5 segundos y, en las ejecuciones posteriores, se cerrará la sesión. inmediatamente.
library(shiny) library(htmltools) ui <- fluidPage( tags$head( tags$script( src = paste0( "https://cdn.jsdelivr.net/npm/js-cookie@rc/", "dist/js.cookie.min.js" ) ) ), h1('My Shiny app'), p('In your first run you will be disconnected after 5 seconds...'), p('...while in consecutive runs you will be logged out immediately'), tags$script(HTML( " $(document).on('shiny:connected', (event) => { if (Cookies.get('logon')) { Shiny.onInputChange('disconnect', true); } else { setTimeout(() => {Shiny.onInputChange('disconnect', true)}, 5000); Cookies.set('logon', true); } } ) " )) ) server <- function(input, output, session) { observeEvent(input$disconnect, { if (input$disconnect) shiny::stopApp() }) } shinyApp(ui, server)