在 shinydashboard 上处理 Spill

Question

我还没有收到对 this question 的任何回复，所以这是一个更简单的问题。有什么方法可以让 fluidRow 容器随绘图一起调整大小？我希望将滑块移动到非常高的值会在闪亮的 window 上添加一个滚动条，但什么也没有发生，情节只是从屏幕底部溢出。

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%")

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

在 shinydashboard 上处理 Spill

Handling Spill on shinydashboard

css

r

shiny

shinydashboard