闪亮的R缩小比例输出

Question

我试图用Shiny R缩小plotOutput。

我有这个情节：

来自此代码：

#In ui:
fluidRow(
        column(width = 12,
           h4("Diagrama Persistencia"),
           plotOutput("Diagrama")
        )
      )

#In server 
output$Diagrama <- renderPlot({
        F_PlotDiag(Diag = isolate(values$data), tipoPlot = input$radioPlot, tamEjeNom = input$sliderTamEjeNom)
      }, height = input$sliderHeight, width = input$sliderWidth) 

注意高度和宽度参数。这是有效的，因为all都在observeEvent上下文中。

正如您所看到的，洞图不适合屏幕。减小高度和宽度的问题是它看起来像这样：

但实际上，如果我右键单击并保存第一张图像，它看起来不像第二张图像：

有没有办法通过缩小显示浏览器中的整个情节？所以我可以看到它就像我下载了图像一样。

我真的不太了解CSS，所以我无法提供任何合理的尝试，但这是我为HTML做的尝试：

tags$style(type="text/css", ".shiny-bound-output { transform: 'scale(.5)' }")
  tags$style(type="text/css", ".shiny-plot-output { transform: 'scale(.5)' }")
  tags$style(type="text/css", "#Diagrama { height: 20px }")

没有成功。

Answer 1

由于您没有提供可重现的示例，请查看此示例是否对您有所帮助。基于https://stackoverflow.com/a/8839678/4190526

键是以下行，它在div下找到id为distPlot的图像（即ui.R中的图名称），并用{{1}定义CSS但是否则自动。

max-height

完整代码

tags$style(HTML("div#distPlot img {width: auto; height: auto; max-width: auto; max-height: 400px;}")),