代码之家 › 专栏 › 技术社区 › LMc

闪亮的水平可排序rank_list

sortablejs shiny r

0

LMc · 技术社区 · 3 年前

有没有一种方法可以实现内联/水平 rank_list 来自 sortable 包裹

library(shiny)
library(sortable)

ui <- fluidPage(
  rank_list(labels = c("/", "26", "2022", "August", "/"), 
            input_id = "rank")
  
)

server <- function(input, output, session) {
  
}

shinyApp(ui, server)

提供:

但我想让标签水平放置,并在彼此之间水平滑动,以构建一个更可读的日期。

我试过了 rank_list(..., options = sortable_options(direction = "horizontal")) 而且 "vertical" 但两者都没有什么不同。

0 回复 | 直到 3 年前

1

3

lz100 3 年前

library(shiny)
library(sortable)

ui <- fluidPage(
    div(
        style = "width: 500px", id = "my-ranklist",
        rank_list(labels = c("/", "26", "2022", "August", "/"), 
                  input_id = "rank"),
        tags$style(HTML(
            '
            #my-ranklist .rank-list {
                display: flex;
            }
            #my-ranklist .rank-list-item {
                width: 100px;
            }
            '
        ))
    )

    
)

server <- function(input, output, session) {
    
}

shinyApp(ui, server)

改变 500px 对于整个集装箱和 100px 每个项目的宽度。