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

在Shiny中你必须使用多个selectInput.但是,您可以通过ZJ安装ShinySky(https://github.com/AnalytixWare/ShinySky)并使用他的select2绑定来进行排序.或者,您可以在https://github.com/mostly-harmless/sortable修改可排序绑定.

编辑:我不知道cookies.我在一个更大的应用程序中使用sortable .我有一个动作按钮来保存用户选择的顺序.请参见数据>变换>重新排序列.在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中的变量提供):

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))
}