R闪亮的gvisTable，用户按定义的顺序选择列

Question

我有一个R shiny 网页，我目前使用gvisTable 来显示从data.frame 中选择的列。行是由用户使用sidebarPanel 动态选择的，但现在这些列是在gvisTable 调用中硬编码的。

我希望允许用户从下拉菜单中动态选择列（请参阅来自非闪亮网页的类似系统的快照）。我想要的关键功能是允许对列进行重新排序。

任何想法如何通过闪亮的列的这种排序选择？

我不介意用其他东西代替gvisTable，如果它可以完成这项工作。

编辑：感谢您展示使用可排序答案的解决方案。它适用于我的新旧版本的闪亮。然而，这似乎不记得点击“刷新”时的顺序，这真是太好了。

那么，它可以将最后选择的订单保存为浏览器 cookie 或类似的方式吗？服务器已通过身份验证，有人告诉我可以将变量 order 放在一个列表中，其中用户 id 作为键。一个很好的例子。

Answer 1

在 Shiny 中，您必须使用多个 selectInput。但是，您可以安装 ZJ (https://github.com/AnalytixWare/ShinySky) 的 ShinySky 并使用他的 select2 绑定，它允许排序。或者，您可以修改 https://github.com/mostly-harmless/sortable 处的可排序绑定。

编辑：我不知道 cookie。我在更大的app 中使用可排序。我有一个操作按钮来保存用户选择的订单。请参阅数据 > 转换 > 重新排序列。在应用程序中，数据存储在 reactiveValue 中。为了保存数据顺序，我使用了values[[input$datasets]] <- values[[input$datasets]][,input$tr_reorder_cols]，其中input$datasets 是活动数据集，input$tr_reorder_cols 是用户选择的变量排序，values 是包含数据的 reactiveValue。

该应用的来源在 Github：https://github.com/mostly-harmless/radiant

作为替代方案，您还可以将变量的顺序保存在 reactiveValue 中。有关详细信息，请参阅Shiny 文档。

编辑：

在 global.R 中定义一个 reactiveValue：

savedOrder <- reactiveValues()

当用户更改订单时（假设您在 R 中有用户 ID 作为变量）：

if(!is.null(input$sortable)) {
    savedOrder[[userid]] <- input$sortable
}

此外，您可以在刷新时将 id 值传递给 returnOrder：

if(!is.null(savedOrder[[userid]])) {
    returnOrder("sortable",savedOrder[[userid]])
} else {
    returnOrder("sortable",colnames(dat))
}