Update plot

server.R

@@ -264,6 +264,7 @@ server <- function(input, output, session) {
       )
     ) %>%
     layout(
+      autosize = TRUE,
       xaxis = list(
         title = "<br><br><b>Straftat<b>",
         tickangle = 0,
@@ -272,7 +273,7 @@ server <- function(input, output, session) {
       yaxis = list(
         title = "<b>Anzahl erfasster Fälle<b>"
       ),
-      margin = list(b = 160, r = 60, pad = 5)
+      margin = list(pad = 5)
     ) %>% 
     config(
       staticPlot = TRUE