R/shinyjs: Plot erscheint über die Box-Breite nach der Verwendung der Funktion zeigen/verbergen Sidebar

Question

seit einigen Tagen Ich versuche, Lösung zu plotten erscheinen falsch (über die Breite der Box) in glänzenden app während Verwendung der Funktion zeigen/ausblenden Sidebar.

Es folgt ein Beispielcode:

library(shiny) 
library(shinydashboard) 
library(ggplot2) 
library(shinyjs) 

ui <- dashboardPage(
    dashboardHeader(), 
    dashboardSidebar(), 
    dashboardBody(
    useShinyjs(), 
    extendShinyjs(text = 'shinyjs.hideSidebar = function(params) { $("body").addClass("sidebar-collapse") }'), 
    extendShinyjs(text='shinyjs.showSidebar = function(params) { $("body").removeClass("sidebar-collapse") }'), 
    fluidRow(tabsetPanel(id='tabs', 
         tabPanel(value=1,title="Plot1", 
            fluidRow(
            column(12, 
            plotOutput('plot1', height=800)))), 
         tabPanel(value=2, title="Plot2", 
            fluidRow(
            column(12, 
            plotOutput('plot2', height=800)))) 
      ) 
    ))) 
) 
) 

server <- function(input, output, session) { 
    output$plot1 <- renderPlot({ 
    out <- ggplot(data.frame(X1=rnorm(1000)),aes(X1))+ 
     geom_density(fill='light blue')+ 
     theme_minimal() 
    print(out) 
    }) 
    output$plot2 <- renderPlot({ 
    out <- ggplot(data.frame(X1=rnorm(1000)),aes(X1))+ 
     geom_density(fill='light blue')+ 
     theme_minimal() 
    print(out) 
    }) 

    observe({ 
    if (input$tabs == 1) { 
     js$hideSidebar() 
    } 
    else { 
     js$showSidebar() 
    } 
    }) 
} 

shinyApp(ui, server) 

Wie wir in diesem Beispielcode sehen können, ich die Sidebar möchte angezeigt werden, wenn der Benutzer die zweite Registerkarte öffnet (Sidebar brach zusammen, als input$tabs == 1). Es funktioniert ziemlich gut, außer wenn ich drücke tab2 zu sehen, dann zu tab1 zurückgehen und wieder Tab2, das Grundstück der Größe verändert und die x-Achse geschnitten:

Answer 1

A „Hacky“ Weg, dies zu tun, ist ein Fenster Größe ändern Ereignis auszulösen, wenn Sie die Seitenleiste hinzufügen/entfernen die Handlung zu zwingen, in der richtigen Größe neu gezeichnet werden, nachdem die Sidebar ist/versteckt gezeigt:

extendShinyjs(text = 'shinyjs.hideSidebar = function(params) { $("body").addClass("sidebar-collapse"); 
       $(window).trigger("resize"); }'), 
extendShinyjs(text='shinyjs.showSidebar = function(params) { $("body").removeClass("sidebar-collapse"); 
       $(window).trigger("resize"); }') 

Answer 2

ich nicht von eine korrekte Lösung für dieses Problem, aber eine Problemumgehung ist, auch die Breite in Ihrem Anruf auf plotOutput() (zB ich habe versucht width=800). Dann werden die Abmessungen des Plots festgelegt und (sobald das Fenster auf die entsprechenden Abmessungen verkleinert wird) wird das Plot nicht geschnitten.