R Shiny中可排序排名列表的句柄答案

【问题标题】：handle for sortable rank_list in RShinyR Shiny中可排序排名列表的句柄
【发布时间】：2022-01-25 13:33:39
【问题描述】：

我在 shiny 中使用sortable 创建一个可排序的列表，其中的元素可以拖放到不同的位置。根据文档（也在底层 javascript 源代码中），您可以定义句柄，您可以在其中抓取项目并重新排序它们（https://jsfiddle.net/14je5rmy/，这个小提琴中的 X）。

我无法在闪亮时做同样的事情（即使存在该选项）

library(shiny)
library(sortable)

labels <- list(
  "one",
  "two",
  "three"
)

rank_list_basic <- rank_list(
  labels = labels,
  input_id = "rank_list_basic",
  options = sortable_options(handle=".handle")
)


ui <- fluidPage(
  tags$body(
    tags$span(class="handle", "X"),
  ),
  fluidRow(
      rank_list_basic,
  )
)

server <- function(input, output) {
}

shinyApp(ui, server)

在这个最小示例中，我创建了跨度（“句柄”），我想将其用作 rank_list 中项目的句柄。有人能指出我正确的方向吗？

【问题讨论】：

标签： r shiny jquery-ui-sortable sortablejs

【解决方案1】：

这是创建 jsFiddle 的 R 方法：

library(shiny)
library(sortable)

labels <- lapply(c("one","two","three"), function(i) {
    div(tags$span(class="handle", "X"), tags$span(i))
})

rank_list_basic <- rank_list(
    labels = labels,
    input_id = "rank_list_basic",
    options = sortable_options(handle=".handle")
)


ui <- fluidPage(
    tags$style('.handle {margin: 10px; color:red; background: cyan; border: 1px solid red; cursor: pointer}'),
    fluidRow(
        rank_list_basic
    )
)

server <- function(input, output) {
}

shinyApp(ui, server)

【讨论】：