R Shiny登录系统重定向主页时会话重置导致登出问题求助

你用window.location.href = '/'跳转时，浏览器会重新加载整个Shiny应用，创建全新会话，原本存在user_info里的登录状态会被清空，所以看起来像是自动登出。Shiny是单页应用，默认会话状态存在内存中，页面刷新就会重置。

解决方案1：动态UI切换（推荐，无页面刷新） #

这种方式不需要跳转页面，直接在同一个会话里切换登录界面和主页内容，完全避免会话重置问题。

修改步骤 #

1. UI部分调整
   把登录模块和主页模块放在同一个UI中，用conditionalPanel根据登录状态显示/隐藏：

ui <- fluidPage(
  shinyjs::useShinyjs(),
  # 登录区域：未登录时显示
  conditionalPanel(
    condition = "!output.user_logged_in",
    textInput("username", "用户名"),
    passwordInput("password", "密码"),
    actionButton("login", "登录"),
    # 注册相关UI元素...
  ),
  # 主页区域：登录后显示
  conditionalPanel(
    condition = "output.user_logged_in",
    h1("欢迎进入主页"),
    actionButton("logout", "登出"),
    # 其他主页功能UI...
  )
)

2. Server部分修改

• 删掉所有shinyjs::runjs("setTimeout(function() { window.location.href = '/' }, 2000);")跳转代码
• 添加输出值传递登录状态给前端：

# 在user_logged_in定义后添加
output$user_logged_in <- reactive({
  user_logged_in()
})
outputOptions(output, "user_logged_in", suspendWhenHidden = FALSE)

登录成功后，user_info更新会自动触发UI切换，不需要跳转。

解决方案2：Cookie持久化登录状态（适合多页面跳转） #

如果必须跳转到独立页面，可通过Cookie存储加密的用户标识，在新会话启动时验证并恢复登录状态。

修改步骤 #

1. 登录/注册成功时设置Cookie
   在登录和注册成功的逻辑中，添加加密Cookie的代码：

# 登录成功后示例
user_info$id <- result$id
user_info$username <- input$username
# 生成加密token（替换"你的密钥"为自定义保密密钥）
token <- digest::digest(paste(user_info$id, "你的密钥"), algo = "sha256")
# 设置Cookie，有效期1天，开启安全属性
shinyjs::setCookie(name = "shiny_login_token", value = token, expires = 1, secure = TRUE, httpOnly = TRUE)
shinyjs::setCookie(name = "shiny_user_id", value = user_info$id, expires = 1, secure = TRUE, httpOnly = TRUE)

2. 应用启动时验证Cookie
   在server函数开头添加Cookie验证逻辑：

# 初始化时检查Cookie恢复登录状态
observe({
  if (is.null(user_info$id)) {
    user_id <- shinyjs::getCookie("shiny_user_id")
    token <- shinyjs::getCookie("shiny_login_token")
    
    if (!is.null(user_id) && !is.null(token)) {
      # 验证token合法性
      expected_token <- digest::digest(paste(user_id, "你的密钥"), algo = "sha256")
      if (token == expected_token) {
        # 从数据库获取用户信息
        query <- sprintf("SELECT * FROM users WHERE id = %s", user_id)
        result <- dbGetQuery(user_con, query)
        if (nrow(result) == 1) {
          user_info$id <- result$id
          user_info$username <- result$username
          updateSession(TRUE)
        }
      }
    }
  }
})

3. 登出时清除Cookie
   在登出逻辑中添加清除Cookie的代码：

observeEvent(input$logout, {
  # 清除用户信息
  user_info$id <- NULL
  user_info$username <- NULL
  updateSession(FALSE)
  # 清除Cookie
  shinyjs::deleteCookie("shiny_login_token")
  shinyjs::deleteCookie("shiny_user_id")
  # 其他登出逻辑...
})

内容的提问来源于stack exchange，提问作者Ream