R'nin Parlak paketindeki grafiklerin en boy oranını nasıl değiştirebilirim?

Question

Sadece Shiny ile oynuyor ve onu seviyor. Fakat hangi grafiğin çizileceğine bağlı olarak farklı boyutlarda olmak için reaktifPlot/plotOutput kombinasyonunda grafikler nasıl alabilirim? Bu ilk örnekte

, ben "Verim eğrisi" analizini seçilen ve istediğim boy oranını elde var:

Ama bu durumda, bir ısı haritası başka analizini seçerken, öyle şimdi onu çarpıtır "Verim Eğrisi" grafiği ile aynı boyuta (hücreler dikdörtgen değil, kare olmalıdır).

nasıl grafik boyutu seçildi edildiği grafik bağlı olarak değişebilir? Yükseklik parametresini = NA, NULL veya "" koymaya çalıştım ama bunlardan hiç hoşlanmıyor.

Ayrı ayrı fakat aynı uygulamada, üst selectInput ile sidebarPanel içindeki textInputs arasında nasıl boşluk oluşturabilirim? H4 ("") denedim ama çalışmıyor. İşte

benim ui.R: Burada

library(shiny) 

shinyUI(pageWithSidebar(
    headerPanel(h1("SAGB Relative Value Tool")), 
    sidebarPanel(
     h4("Choose analysis:"), 
     selectInput("analysis1", "", 
      choices = c("Yield curve", "Optical asset swap spreads", 
         "Cheap dear box", "Cheap dear charts", "Switch signaliser", 
         "Barbells")), 
     h4(" "), 
     h4("Yield override:"), 
     lapply(bondNames, function(x) 
      textInput(paste(x, "bond"), x, last(sagb$sagb)[x])) 
    ), 
    mainPanel(
     h3(textOutput("AnalysisHeader")), 
     plotOutput("AnalysisOutput", height = "10in")) 
)) 

ve benim server.r olduğunu

library(shiny) 

shinyServer(function(input, output) { 

    output$AnalysisHeader <- reactiveText(function() { 
     input$analysis1 
    }) 


    output$AnalysisOutput <- reactivePlot(function() { 
     switch(input$analysis1, 
      "Yield curve" = wo(whichOut = 1), 
      "Optical asset swap spreads" = wo(whichOut = 2), 
      "Cheap dear box" = wo(whichOut = 3), 
      "Cheap dear charts" = wo(whichOut = 4), 
      "Switch signaliser" = wo(whichOut = 5), 
      "Barbells" = wo(whichOut = 6) 
     ) 

    }) 


}) 

Answer 1

((benim öz konuşurken bazen RTFM için iyi bir fikirdir, hem de cf benim

reactivePlot(func, width = "auto", height = "auto", ...) 

width The width of the rendered plot, in pixels; or ’auto’ to use the offsetWidth of 
     the HTML element that is bound to this plot. You can also pass in a function 
     that returns the width in pixels or ’auto’; in the body of the function you may 
     reference reactive values and functions. 
*height* The height of the rendered plot, in pixels; or ’auto’ to use the offsetHeight 
     of the HTML element that is bound to this plot. You can also pass in a function 
     that returns the width in pixels or ’auto’; in the body of the function you may 
     reference reactive values and functions. 
...  Arguments to be passed through to png. These can be used to set the width, 
     height, background color, etc. 

ancak bugüne kadar benile (çalışmayı yapmak için başaramadılar) OP yorumum) ...

Error in switch(units, `in` = res, cm = res/2.54, mm = res/25.4, px = 1) * : 
    non-numeric argument to binary operator 

DÜZENLEME: şimdi çalışıyor, height kesinlikle isteğe units="px" ve res ile, sayısal olarak piksellere units dönüştürmek için bir şey vardır.

EDIT 2: ve Shiny'u [son sürüme] güncellemeyi unutma, karşılaştığım bazı hataları giderir.

DÜZENLEME 3:

getVarHeight <- function() { 
    return(getNumberOfPlots() * 400) 
} 
output$out <- reactivePlot(doPlots, height=getVarHeight) 

Sen getNumberOfPlots arsa için grafiğin sayısını döndürür bu screenshot e parçacığını ilgili olabilir: Burada yükseklik dinamik değiştiğinde bir örnektir.

DÜZENLEME 4: Eğer birkaç resimleri görüntülemek istiyorsanız, içeri height değiştirmelisiniz 'ui.R' de: Bu değer, doğrudan CSS iletilir ve varsayılan değer 400px mesafesindedir. Eğer görüntüleriniz daha büyükse, onlar üst üste gelecektir ve sadece 400 piksel görünecektir ...

plotOutput(outputId = "plot_rain", height="100%"))