R Shiny：单个应用程序的用户身份验证。R

Question

我正在开发一个 R Shiny 应用程序并想添加用户名和登录名。 我检查了 RStudio 演示，但那只是使用 ShinyServer Pro，我正在使用 mongolite 包将 formData 备份到 Mongodb。

有没有办法在生成应用程序 UI 之前强制添加用户登录？

Answer 1

ShinyProxy是一个基于 Docker 和 Spring Java 的开源 Shiny 服务器，旨在解决这个问题。 它允许您在应用程序配置文件中对用户进行硬编码、连接到 LDAP 服务器、使用 SSO/Keycloak 或社交网络登录。

Answer 2

以下是如何使用 cookie 进行身份验证的示例。 更多信息可以在我的博客中找到。

首先将cookie js下载到www/文件夹：

if (!dir.exists('www/')) {
    dir.create('www')
}

download.file(
  url = 'https://cdn.jsdelivr.net/npm/js-cookie@2/src/js.cookie.min.js',
  destfile = 'www/js.cookies.js'
)

安装必要的软件包：

install.packages(c('shiny', 'shinyjs', 'bcrypt'))

将以下代码另存为 app.R 并单击“运行应用程序”按钮：

library(shiny)
library(shinyjs)
library(bcrypt)


# This would usually come from your user database.

# Never store passwords as clear text
password_hash <- hashpw('secret123') 

# Our not so random sessionid
# sessionid <- paste(
#   collapse = '', 
#   sample(x = c(letters, LETTERS, 0:9), size = 64, replace = TRUE)
# )
sessionid <- "OQGYIrpOvV3KnOpBSPgOhqGxz2dE5A9IpKhP6Dy2kd7xIQhLjwYzskn9mIhRAVHo" 


jsCode <- '
  shinyjs.getcookie = function(params) {
    var cookie = Cookies.get("id");
    if (typeof cookie !== "undefined") {
      Shiny.onInputChange("jscookie", cookie);
    } else {
      var cookie = "";
      Shiny.onInputChange("jscookie", cookie);
    }
  }
  shinyjs.setcookie = function(params) {
    Cookies.set("id", escape(params), { expires: 0.5 });  
    Shiny.onInputChange("jscookie", params);
  }
  shinyjs.rmcookie = function(params) {
    Cookies.remove("id");
    Shiny.onInputChange("jscookie", "");
  }
'

server <- function(input, output) {

  status <- reactiveVal(value = NULL)
  # check if a cookie is present and matching our super random sessionid  
  observe({
    js$getcookie()
    if (!is.null(input$jscookie) && 
        input$jscookie == sessionid) {
          status(paste0('in with sessionid ', input$jscookie))
    }
    else {
      status('out')
    }
  })

  observeEvent(input$login, {
    if (input$username == 'admin' & 
        checkpw(input$password, hash = password_hash)) {
      # generate a sessionid and store it in your database,
      # sessionid <- paste(
      #   collapse = '', 
      #   sample(x = c(letters, LETTERS, 0:9), size = 64, replace = TRUE)
      # )
      # but we keep it simple in this example...
      js$setcookie(sessionid)
    } else {
      status('out, cause you don\'t know the password secret123 for user admin.')
    }
  })

  observeEvent(input$logout, {
    status('out')
    js$rmcookie()
  })

  output$output <- renderText({
    paste0('You are logged ', status())}
  )
}

ui <- fluidPage(
  tags$head(
    tags$script(src = "js.cookies.js")
  ),
  useShinyjs(),
  extendShinyjs(text = jsCode),
  sidebarLayout(
    sidebarPanel(
      textInput('username', 'User', placeholder = 'admin'),
      passwordInput('password', 'Password', placeholder = 'secret123'),
      actionButton('login', 'Login'),
      actionButton('logout', 'Logout')
    ),
    mainPanel(
      verbatimTextOutput('output')
    )
  )
)

shinyApp(ui = ui, server = server)

Answer 3

好吧，您可以通过使用renderUI并动态更改 UI 从代码来renderUI 。 以下是如何执行此操作的示例：

library(shiny)
library(ggplot2)

u <- shinyUI(fluidPage(
  titlePanel("Shiny Password"),

  sidebarLayout(position = "left",
                sidebarPanel( h3("sidebar panel"),
                              uiOutput("in.pss"),
                              uiOutput("in.clr"),
                              uiOutput("in.titl"),
                              uiOutput("in.cnt"),
                              uiOutput("in.seed")

                ),
                mainPanel(h3("main panel"),
                          textOutput('echo'),
                          plotOutput('stdplot')
                )
  )
))

pok <- F

s <- shinyServer(function(input, output) 
{
  output$in.pss   <- renderUI({ input$pss; if (pok) return(NULL) else return(textInput("pss","Password:","")) })
  output$in.clr   <- renderUI({ input$pss; if (pok) return(selectInput("clr","Color:",c("red","blue"))) else return(NULL) })
  output$in.titl  <- renderUI({ input$pss; if (pok) return(textInput("titl","Title:","Data")) else return(NULL) })
  output$in.cnt   <- renderUI({ input$pss; if (pok) return(sliderInput("cnt","Count:",100,1000,500,5)) else return(NULL) })
  output$in.seed  <- renderUI({ input$pss; if (pok) return(numericInput("seed","Seed:",1234,1,10000,1)) else return(NULL) })
  histdata <- reactive(
    {
      input$pss;
      validate(need(input$cnt,"Need count"),need(input$seed,"Need seed"))
      set.seed(input$seed)
      df <- data.frame(x=rnorm(input$cnt))
    }
  )
  observe({
     if (!pok) {
       password <- input$pss
       if (!is.null(password) && password == "pass") {
         pok <<- TRUE
       }
     }
   }
  )
  output$echo = renderText(
    {
      if (pok) {
        s <- sprintf("the %s is %s and has %d rows and uses the %d seed",
           input$ent,input$clr,nrow(histdata()),input$seed)
      } else {
        s <- ""
      }
      return(s)
    }
  )
  output$stdplot = renderPlot(
    {
      input$pss
      if (pok) {
        return(qplot(data = histdata(),x,fill = I(input$clr),binwidth = 0.2,main=input$titl))
      } else {
        return(NULL)
      }
    }
  )
}
)
shinyApp(ui=u,server=s)

产量

这个在登录：

一旦您输入了硬编码密码“pass”。

当然，以这种方式编程有点笨拙，但您可以使用选项卡并使用类似的逻辑隐藏它们。

或者，如果您使用的是 ShinyServer，您可能可以在站点前面放置一个过滤器。 但这就是我在 Shiny 中处理它的方式。

Answer 4

polished R 包为任何 Shiny 应用程序添加了身份验证和用户管理： https : //github.com/Tychobra/polished

这是您使用优美的默认登录页面的屏幕截图：
您可以在登录和注册页面上使用您自己的品牌轻松替换占位符徽标和颜色。

Polished 还带有一个仪表板来管理您的应用程序的用户：

更多细节： https : //polished.tech/

Answer 5

您可以在 Shiny 应用程序之前添加一个身份验证代理，如下所示： https : //www.datascienceriot.com/add-authentication-to-shiny-server-with-nginx/kris/

这是一个框架 Nginx 配置，它从 HTTPS 端口 443 重定向到运行在端口 8000 上的 Shiny 服务器。

server {
    listen       443;
    server_name  shinyservername;

    ssl                  on;
    ssl_certificate      ...
    ssl_certificate_key  ...
    ssl_dhparam ...

    location / {
        proxy_pass http://yourdestinationIP:8000;
        proxy_set_header        X-Forwarded-Proto $scheme;
        add_header              Front-End-Https   on;
        proxy_set_header        Accept-Encoding   "";
        proxy_set_header        Host            $host;
        proxy_set_header        X-Real-IP       $remote_addr;
        proxy_set_header        X-Forwarded-For $proxy_add_x_forwarded_for;
    auth_basic "Restricted";
    auth_basic_user_file /etc/nginx/htpasswd;
    }
}

将主机的防火墙设置为打开端口 443，并且只允许 localhost 连接到端口 8000 上的 Shiny Server：

iptables -A INPUT -p tcp --dport 443 -j ACCEPT
iptables -A INPUT -p tcp -s localhost --dport 8000 -j ACCEPT
iptables -A INPUT -p tcp --dport 8000 -j DROP

将一个或多个用户的静态凭据添加到/etc/nginx/htpasswd ：

htpasswd –c /etc/nginx/htpasswd myshinyuser

一个缺点（许多）是这将进行身份验证和授权，但它不会将经过身份验证的用户信息传递给您的应用程序。 为此，您需要 Shiny Server Pro 的身份验证集成，它将会话中的用户传递给您。

Answer 6

我最近编写了一个 R 包，它提供了可以与任何引导 UI 框架集成的登录/注销模块。

使用 Shinydashboard 示例的博客文章

包回购

包 repo 中的inst/目录包含示例应用程序的代码。

Answer 7

我使用shinyAppLogin而不是shinApp：

# R code
shinyAppLogin <- function( ui, server, title="Restricted Area", accounts = list(admin="admin"), ...) {
    ui_with_login <- bootstrapPage(theme = "login_style.css",
        div(class="login-page",
            div(class="form",
                h1(title), br(),
                tags$form(class="login-form",
                    textInput(inputId = "user", label = NULL, placeholder="Username"),
                    passwordInput(inputId = "pass", label = "", placeholder = "Password" ),
                    actionButton(inputId = "login", label = "Login")
            ) ) ) )

    server_with_login <- function(input, output, session) {

        observeEvent(input$login, ignoreNULL = T, {

        if ( input$user %in% names(accounts) && input$pass == accounts[[input$user]] ) {

            removeUI(selector = "body", multiple = T, immediate = T, session = session)
            insertUI(selector = "html", where = "beforeEnd", ui = ui, immediate = T, session = session )
            server(session$input, session$output, session = session)
        }
    } ) }

    shinyApp(ui = ui_with_login, server = server_with_login, ...)
}

然后我的代码变成：shinyAppLogin(my_ui, my_server)

样式时的登录屏幕

然后我 在此处使用了 输入链接描述中的 css，只需将您的 css 保存在 www/login_style.css 中