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

闪亮的水平可排序rank_list

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

    提供:

    enter image description here

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

    我试过了 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 每个项目的宽度。

    enter image description here

    推荐文章