# Protege el acceso a tus aplicaciones Shiny con contraseña

> Si creaste una aplicación Shiny y quieres compartirla con otros/as, pero tu app contiene información que no puede ser vista por cualquiera, ¡entonces sigue estos pasos! En unos minutos tendrás una aplicación que requiere de usuario y contraseña para poder usarla.

- URL: https://bastianolea.rbind.io/blog/shiny_usuarios/
- Fecha: 2025-02-17
- Autor: Bastián Olea Herrera
- Etiquetas: shiny, apps

---

Si [creaste una aplicación Shiny](https://bastianolea.rbind.io/blog/shiny/) y quieres [compartirla con otros/as](https://bastianolea.rbind.io/blog/shiny/#publicar-la-aplicación-en-internet), pero tu app contiene información que no puede ser vista por cualquiera, ¡entonces sigue estos pasos! En unos minutos tendrás una aplicación que requiere de usuario y contraseña para poder usarla.

**Publicación relacionada:** [Tutorial: Crea aplicaciones web interactivas en R con Shiny](https://bastianolea.rbind.io/blog/shiny/index.md): Shiny es un paquete para desarrollar aplicaciones web interactivas con R, generalmente centradas en el análisis y visualización de datos. Shiny le da vida a todo lo que hayas desarrollado con R sin…

## Instalar `{shinymanager}`
Instala el [paquete `{shinymanager}`](https://datastorm-open.github.io/shinymanager/) para empezar:

```r
install.packages("shinymanager")
```

## Crear credenciales
Dentro del script `app.R` de tu aplicación Shiny, crea un dataframe que contenga una contraseña de prueba:

```r
# credenciales para autenticación
credentials <- data.frame(
  user = "usuario",
  password = "usuario"
)
```

## Aplicar autenticación a tu app
Ahora, en el apartado `server` de tu app, agrega el siguiente código que evaluará las credenciales ingresadas y gestionará el acceso para tus usuarios:

```r
# autenticación
res_auth <- secure_server(check_credentials = check_credentials(credentials))
```

Finalmente, antes de la línea de tu script `app.R` que ejecuta tu aplicación (usualmente `shinyApp(ui, server)`), modifica el objeto que contiene la interfaz de tu aplicación, para protegerla con la autenticación de {shinymanager}:

```r
# autenticación
ui <- secure_app(ui)
```

¡Listo! Tu aplicación ahora solicitará una contraseña antes de ejecutarse.

## Ejemplo
Veamos un ejemplo con una aplicación Shiny real:

### App sin autenticación

```r
library(shiny)
library(bslib)

ui <- page_fluid(
  
  page_fillable(
    card(
      h1("Aplicación"),
      
      sliderInput("numeros", "Prueba", 1, 10, 5)
    )
  )
)

server <- function(input, output, session) {
  
}

shinyApp(ui, server)
```

Para agregarle autenticación a esta app, debemos seguir los pasos anteriores para dejarla así:

### App con autenticación
```r
library(shiny)
library(bslib)
library(shinymanager)

# credenciales para autenticación
credentials <- data.frame(
  user = "usuario",
  password = "usuario"
)

ui <- page_fluid(
  
  page_fillable(
    card(
      h1("Aplicación"),
      
      sliderInput("numeros", "Prueba", 1, 10, 5)
    )
  )
)

server <- function(input, output, session) {
  # autenticación
  res_auth <- secure_server(check_credentials = check_credentials(credentials))
}

# autenticación
ui <- secure_app(ui)

shinyApp(ui, server)
```

La pantalla de autenticación se vería así:

![](https://bastianolea.rbind.io/blog/shiny_usuarios/shinymanager_1.png)

## Personalizar
Si queremos modificar la pantalla de autenticación, [podemos agregar un tema](https://rstudio.github.io/shinythemes/), y cambiar las etiquetas usando la función `set_labels()`:

```r
# definir un tema
ui <- secure_app(theme = shinythemes::shinytheme("flatly"), ui)

# cambiar textos de autenticación
set_labels(language = "en",
  "Please authenticate" = "Acceder",
  "Username:" = "Usuario:",
  "Password:" = "Contraseña:",
  "Login" = "Acceder"
)
```

![](https://bastianolea.rbind.io/blog/shiny_usuarios/shinymanager_2-featured.png)

La aplicación y todos sus contenidos han quedado protegidos tras la contraseña de usuario. El siguiente paso es guardar las contraseñas en un archivo (no en el código) que no se suba a GitHub (agregar a `.gitignore`), y que ojalá esté encriptado. Por ejemplo, {shinymanager} ofrece formas de [guardar las credenciales en una base de datos SQlite, con encripción y hashing de las contraseñas.](https://datastorm-open.github.io/shinymanager/#secure-sqlite-database)

Para más información sobre el uso de `{shinymanager}`, [consulta su documentación](https://datastorm-open.github.io/shinymanager/).

**Publicaciones sobre shiny:**

- [Probando visores de mapas interactivos en R con {mapgl}](https://bastianolea.rbind.io/blog/2026-07-29/index.md)
- [Crea un chatbot de inteligencia artificial con R](https://bastianolea.rbind.io/blog/shinychat/index.md)
- [Tutorial: Crea aplicaciones web interactivas en R con Shiny](https://bastianolea.rbind.io/blog/shiny/index.md)
- [Usando tipografías personalizadas en aplicaciones Shiny](https://bastianolea.rbind.io/blog/shiny_tipografias/index.md)
- [Medir el ancho de una aplicación Shiny como una variable reactiva y usarla para adaptar los contenidos de la app](https://bastianolea.rbind.io/blog/shiny_ancho/index.md)