在Shiny中，有没有可能让会话中的变量对某些用户可共享，但不能对所有用户共享？

library(shiny)

# 创建一个包含共享变量的列表
sharedValues <- reactiveValues(
  var1 = NULL,
  var2 = NULL
)

# 定义UI界面
ui <- fluidPage(
  textInput("input1", "输入变量1"),
  textInput("input2", "输入变量2"),
  actionButton("btn", "保存变量"),
  verbatimTextOutput("output")
)

# 定义服务器逻辑
server <- function(input, output, session) {
  
  # 当保存按钮被点击时，更新共享变量的值
  observeEvent(input$btn, {
    sharedValues$var1 <- input$input1
    sharedValues$var2 <- input$input2
  })
  
  # 显示共享变量的值
  output$output <- renderPrint({
    paste("共享变量1的值：", sharedValues$var1)
    paste("共享变量2的值：", sharedValues$var2)
  })
}

# 运行Shiny应用程序
shinyApp(ui, server)