Question

我在这里发布了一个类似的查询：Horizontal scroll bar in shiny in inactive state但后来我意识到我确实需要两个滚动条 - 垂直和水平。我确实在活动状态下实现垂直条，但水平条仍然不起作用。

在闪亮的应用程序中，当用户选择两列以上时，我希望水平滚动条正常工作，当选择三行以上时，垂直滚动条应该处于活动状态，但相反，它始终是执行工作的垂直条。

主面板中窗口小部件外的标签只是列号，里面的值只是行列号。所以基本上如果选择了两列以上，那么水平条应该是活动的。

每行也会重复列号。我希望它在各自列的顶部发生一次。如何实现这两个？

谢谢

library(shiny)
library(shinydashboard)

ui <- shinyUI(fluidPage(
titlePanel(title = "Horizontal scroll bar not working"), 
sidebarLayout(

sidebarPanel(numericInput("rows", "Input No. of rows", value = 3,min=1),
             br(),
             numericInput("col", "Input No. of cols", value = 1,min=1)),


mainPanel(

  tags$head(
    tags$style(
      HTML("
           #myScrollBox{
           overflow-y: scroll;
           overflow-x: scroll;
           height:260px;
           #}
           ")
      )
      ),

    box(title = "Column #", width = 8,
    div(id = "myScrollBox", uiOutput("plo"))))
    )
  )
)

server <- function(input, output){

# creating input widgets dynamically
output$plo <- renderUI({
                      z <- input$col
                      lapply(seq(input$col), function(j){
                      column(width=5,
                      lapply(seq(input$rows), function(i){
                      numericInput(inputId = 
                      paste0("range", paste0(i, j)),label = j, value = 
                      paste0(i, j))  
         })
   )
  })
 })
} 

shinyApp(ui, server)

滚动条有光泽

0 个答案: