Question

我想要一个动态大小的情节，所有这些都应该发生在有光泽的UI中。

这是我的代码：

   shinyUI{
      sidebarPanel(
            sliderInput("width", "Plot Width", min = 10, max = 20, value = 15),
            sliderInput("height", "Plot Height", min = 10, max = 20, value = 15)
       )

        mainPanel(
            plotOutput("plot", width="15cm", height="15cm")
        )
    }

我设置＆＃34; 15cm＆＃34;只看到情节。

我尝试了不同的方法从sliderInputs获取数据并将其带到plotOutput。我试过＆＃34; input.height＆＃34;，＆＃34;输入$ heigt＆＃34;但没有任何效果。

Answer 1

您必须使用服务器端的输入，例如这里有一个解决方案：

宽度和高度的单位必须是有效的CSS单位，我不确定“cm”是否有效，使用“％”或“px”（或者int，它将被强制转换为字符串最后用“px”）

library(shiny)

runApp(list(
    ui = pageWithSidebar(
    headerPanel("Test"),
    sidebarPanel(
            sliderInput("width", "Plot Width (%)", min = 0, max = 100, value = 100),
            sliderInput("height", "Plot Height (px)", min = 0, max = 400, value = 400)
       ),
        mainPanel(
            uiOutput("plot.ui")
        )
    ),
    server = function(input, output, session) {

        output$plot.ui <- renderUI({
            plotOutput("plot", width = paste0(input$width, "%"), height = input$height)
        })

        output$plot <- renderPlot({
            plot(1:10)
        })
    }
))

R Shiny：具有动态尺寸的情节

1 个答案: