R Shiny CSS：在放大/缩小屏幕尺寸时保持文本相对位置

Question

无论缩放状态或屏幕大小如何，我都试图将每个数字保持在其各自的knobInput 内。但是，在缩放 120% 或缩小屏幕尺寸后，数字会弹出其相对位置之外。

library(shiny)

ui <- fluidPage(fluidRow(
  column(2, uiOutput("example_1")),
  column(2, uiOutput("example_2")),
  column(2,  uiOutput("example_3")),
         column(2, uiOutput("example_4")),
         column(2, uiOutput("example_5")),
         column(2, uiOutput("example_6"))
       )
)


server <- function(input, output, session) {
  
  output$example_1 =  output$example_2 =  output$example_3 = output$example_4 =  output$example_5 =  output$example_6 = renderUI(knobInput(
    inputId = "example_knob",
    label = NULL,
    value = 10,
    fontSize = "2em"
  ))
}

shinyApp(ui, server)

感谢任何关于我如何实现这一目标的建议。

Answer 1

所以...这里的问题是您没有用您的列填充fluidrow 的水平空间，即 12。将 columnwidth 设置为 4 使其工作：

library(shiny)
library(shinyWidgets)


ui <- fluidPage(fluidRow(
  column(4, uiOutput("example_1")),
  column(4, uiOutput("example_2")),
  column(4,  uiOutput("example_3"))
)
)

server <- function(input, output, session) {
  
  output$example_1 =  output$example_2 =  output$example_3 = renderUI(knobInput(
    inputId = "example_knob",
    label = NULL,
    value = 10,
    fontSize = "2em"
  ))
}

shinyApp(ui, server)