“实时”闪亮仪表板中的独特会话

Question

在工作中，我们使用 Shiny 开发管理仪表板。信息源以前是从数据库中提取的平面文件，但现在我们正在尝试开发一个“实时”仪表板，允许用户从仪表板中查询数据库。使用 url 访问仪表板，无需登录即可查看仪表板。只需指向浏览器，仪表板就会加载。

除了一个问题外，我的工作正常。如果两个用户同时使用仪表板，运行相同的查询并创建相同的表，则结果可能会混合。一位用户将看到另一位用户的结果。

使用运行以下函数的 actionButton 运行查询：

dataTbl <- function(<select criteria>) {
  sqlQuery(connection, "select * from ... ")
}

如何让每个用户拥有自己独特的会话，以便在任何时候无论有多少用户，每个用户都是独立的并且独立于其他用户？

Answer 1

你可以做字符串搜索和替换，我也建议你使用promises包做查询https://rstudio.github.io/promises/articles/shiny.html

dataTbl <- function(table,products) {
  qr <- "select * from TABLE where product = PRODUCTS"
  qr <- gsub("TABLE",table,qr)
  qr <- gsub("PRODUCTS",products,qr)
  sqlQuery(connection,qr)
}