css - 处理闪亮仪表板上的溢出

Question

这个问题我没有得到任何答复，所以这里有一个更简单的问题。有什么方法可以让fluidRow容器随情节一起调整大小？我希望将滑块移动到非常高的值会在闪亮的窗口中添加一个滚动条，但没有任何反应，而且情节只是从屏幕底部溢出。

ui <- dashboardPage(
   dashboardHeader(
      title = "Sidebar spill"

   ),
   dashboardSidebar(
      sidebarMenu(
         menuItem(text = "Something")
         )
      ),
   dashboardBody(
      fluidRow(
         sliderInput(label = 'sizeplot', inputId = 'sizeplot', min = 100, max = 1200, value = 400 )
      ),
      fluidRow(
         plotOutput('qwe')
      )
   )
)

server <- function(input, output) {
   output[['qwe']] = renderPlot({
      ggplot(mtcars) +
         geom_point(aes(x = wt, y = mpg))
      },
      height = exprToFunction(input$sizeplot))
}

shinyApp(ui, server,)
}

Answer 1

嗨，如果您在 ui 中指定高度，它似乎可以工作：

plotOutput('qwe', height = "100%")

默认情况下，由创建的 divplotOutput具有固定的高度（400px），更改服务器中的绘图高度不会影响这个，所以图像只是覆盖下面的内容。