输入密码后启动Shiny应用程序(使用Shinydashboard) [英] Starting Shiny app after password input (with Shinydashboard)
问题描述
在主题中，很好地解释了如何开始输入一些密码后的shinyapp.我正在尝试做同样的事情，但我希望有一个"dashboardPage"而不是"navbarPage".
In this topic is well explained how to start the shinyapp after some password input. I am trying to do the same, but instead of "navbarPage", I would like to have a "dashboardPage".
我试图将do.call函数形式的参数从'navbarPage'更改为'dashboardPage'，但是应用程序崩溃了.
I tried to change the argument in do.call function form 'navbarPage' to 'dashboardPage', but the app crashes.
rm(list = ls())
library(shiny)
Logged = FALSE;
my_username <- "test"
my_password <- "test"
ui1 <- function(){
tagList(
div(id = "login",
wellPanel(textInput("userName", "Username"),
passwordInput("passwd", "Password"),
br(),actionButton("Login", "Log in"))),
tags$style(type="text/css", "#login {font-size:10px; text-align: left;position:absolute;top: 40%;left: 50%;margin-top: -100px;margin-left: -150px;}")
)}
ui2 <- function(){tagList(tabPanel("Test"))}
ui = (htmlOutput("page"))
server = (function(input, output,session) {
USER <- reactiveValues(Logged = Logged)
observe({
if (USER$Logged == FALSE) {
if (!is.null(input$Login)) {
if (input$Login > 0) {
Username <- isolate(input$userName)
Password <- isolate(input$passwd)
Id.username <- which(my_username == Username)
Id.password <- which(my_password == Password)
if (length(Id.username) > 0 & length(Id.password) > 0) {
if (Id.username == Id.password) {
USER$Logged <- TRUE
}
}
}
}
}
})
observe({
if (USER$Logged == FALSE) {
output$page <- renderUI({
div(class="outer",do.call(bootstrapPage,c("",ui1())))
})
}
if (USER$Logged == TRUE)
{
output$page <- renderUI({
div(class="outer",do.call(dashboardPage,c(inverse=TRUE,title = "Contratulations you got in!",ui2())))
})
print(ui)
}
})
})
runApp(list(ui = ui, server = server))
推荐答案
如果我的代码足以使您从正确"的路径入手，我会不满意.如果不是这种情况，请告诉我.
I woder if my code is enough to get you started on the "right" path. Please let me know if it is not the case.
下面的代码(如果登录名和密码正确)将显示一个闪亮的仪表板.
The code below, if the login and password are correct, will display a shinydashboard.
但是需要解决以下问题:
but the following issues will need addressing:
- css中有问题.我认为您需要将登录操作更改的CSS重置为Shinydashboard的更标准配置(当前为白色)
- 如果密码错误，则第一个
observe将继续在renderUI上赢得"(有或没有第二个observe，严格来说是不必要的，因此消除了)，并且永远不会执行与错误登录有关的消息
- There is a problem in the css. I think you need to "reset" the css changed for the login operation to something more standard to shinydashboard (currently it is all white)
- If the password is wrong, the first
observewill keep on "winning" on the renderUI (with or without a secondobserve, strictly speaking unnecessary hence eliminated) and the message relative to the wrong login is never executed.
您可以尝试多种方法来解决上述问题.
There are number of things you could try to fix the above.
- 对于CSS，您可以重新设置它，也可以将登录名优雅地显示在模式中.
- 第二次，也许您可以将所有逻辑带入renderUI调用.这样可以确保所有情况都得到执行.
但是请让我知道是否足够清楚.
But please let me know if it is clear enough.
这是代码:
rm(list = ls())
library(shiny)
library(shinydashboard)
Logged = FALSE
my_username <- "test"
my_password <- "test"
ui1 <- function() {
tagList(
div(
id = "login",
wellPanel(
textInput("userName", "Username"),
passwordInput("passwd", "Password"),
br(),
actionButton("Login", "Log in")
)
),
tags$style(
type = "text/css",
"#login {font-size:10px; text-align: left;position:absolute;top: 40%;left: 50%;margin-top: -100px;margin-left: -150px;}"
)
)
}
ui2 <- function() {
tagList(dashboardHeader(),
dashboardSidebar(),
dashboardBody("Test"))
}
ui = (htmlOutput("page"))
server = function(input, output, session) {
USER <- reactiveValues(Logged = Logged)
observe({
if (USER$Logged == FALSE) {
if (!is.null(input$Login)) {
if (length(input$Login) > 0) {
Username <- isolate(input$userName)
Password <- isolate(input$passwd)
Id.username <- which(my_username == Username)
Id.password <- which(my_password == Password)
if (length(Id.username) > 0 &
length(Id.password) > 0) {
if (Id.username == Id.password) {
USER$Logged <- TRUE
}
}
}
}
}
})
output$page <- renderUI({
if (USER$Logged == FALSE) {
do.call(bootstrapPage, c("", ui1()))
} else {
do.call(dashboardPage, #c(inverse=TRUE,title = "Contratulations you got in!",
ui2())
}
})
}
shinyApp(ui, server)
2017年10月30日更新
上面的代码似乎不再起作用(感谢@ 5249203指出这一点).
It seems that the above code doesn't work anymore (thanks to @5249203 for pointing this out).
我已经尝试修复它，但是我没有设法使do.call函数与dashboardBody一起使用(如果有人知道一种方法，请告诉我！).
I've tried to fix it, but I haven't managed to make the do.call function work with dashboardBody (if somebody knows of a way, please let me know!).
因此，由于最近的shiny功能，我以另一种方式解决了该问题.
Therefore I approached the problem in another way, thanks to recent shiny functions.
了解您的想法(当然，像往常一样，解决方案只是需要扩展的模板).
See what you think (of course as usual the solution is just a template needing extensions).
library(shiny)
library(shinydashboard)
Logged = FALSE
my_username <- "test"
my_password <- "test"
ui <- dashboardPage(skin='blue',
dashboardHeader( title = "Dashboard"),
dashboardSidebar(),
dashboardBody("Test",
# actionButton("show", "Login"),
verbatimTextOutput("dataInfo")
)
)
server = function(input, output,session) {
values <- reactiveValues(authenticated = FALSE)
# Return the UI for a modal dialog with data selection input. If 'failed'
# is TRUE, then display a message that the previous value was invalid.
dataModal <- function(failed = FALSE) {
modalDialog(
textInput("username", "Username:"),
passwordInput("password", "Password:"),
footer = tagList(
# modalButton("Cancel"),
actionButton("ok", "OK")
)
)
}
# Show modal when button is clicked.
# This `observe` is suspended only whith right user credential
obs1 <- observe({
showModal(dataModal())
})
# When OK button is pressed, attempt to authenticate. If successful,
# remove the modal.
obs2 <- observe({
req(input$ok)
isolate({
Username <- input$username
Password <- input$password
})
Id.username <- which(my_username == Username)
Id.password <- which(my_password == Password)
if (length(Id.username) > 0 & length(Id.password) > 0) {
if (Id.username == Id.password) {
Logged <<- TRUE
values$authenticated <- TRUE
obs1$suspend()
removeModal()
} else {
values$authenticated <- FALSE
}
}
})
output$dataInfo <- renderPrint({
if (values$authenticated) "OK!!!!!"
else "You are NOT authenticated"
})
}
shinyApp(ui,server)
这篇关于输入密码后启动Shiny应用程序(使用Shinydashboard)的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！
