https://github.com/Appsilon/shiny.users.demo

https://github.com/Appsilon/shiny.users.demo

Last synced: about 1 month ago
JSON representation

• Host: GitHub
• URL: https://github.com/Appsilon/shiny.users.demo
• Owner: Appsilon
• Created: 2019-04-09T13:23:58.000Z (over 5 years ago)
• Default Branch: master
• Last Pushed: 2024-02-02T14:47:21.000Z (8 months ago)
• Last Synced: 2024-04-10T17:10:00.313Z (5 months ago)
• Size: 2.93 KB
• Stars: 8
• Watchers: 25
• Forks: 1
• Open Issues: 2
• Metadata Files:
  • Readme: README.md

Awesome Lists containing this project

• jimsghstars - Appsilon/shiny.users.demo - (Others)

README

        
# shiny.users - demo

### User authentication for R Shiny applications.

 We are in early access, join our [waitlist](https://mailchi.mp/appsilondatascience.com/shiny-user-management/ "Shiny Users early access registration")

To install shiny.users package look for the **installation** section in your shiny.users early access **invitation email**.

### Example

```r

library(shiny)

library(shiny.users)

SHINY.USERS.APP_KEY <- "XXXXXXXX-XXXX-XXXX-XXXX-XXXXXXXXXXXX" # Get app key from Developer Panel

ui <- shinyUI(fluidPage(

  div(class = "container",

    style = "padding: 4em",

    login_screen_ui("login_screen"),

    uiOutput("authorized_content")

  )

))

server <- shinyServer(function(input, output) {

  users <- initialize_users(SHINY.USERS.APP_KEY)

  callModule(login_screen, "login_screen", users)

  output$authorized_content <- renderUI({

    if (!is.null(users$user())) {

      tagList(

        shiny::numericInput("secret_input", "Input secret number", 0),

        uiOutput("secret_output")

      )

    }

  })

  output$secret_output <- renderUI({

    span(as.numeric(input$secret_input) * 2)

  })

})

shinyApp(ui, server)

```

More examples are in package inside the `examples` folder.