Fix formatting

server.R

@@ -270,13 +270,15 @@ server <- function(input, output, session) {
     ) %>%
     layout(
       autosize = TRUE,
+      separators = ",.",
       xaxis = list(
         title = "<br><br><b>Straftat<b>",
         tickangle = 0,
         ticklabeloverflow = "allow"
       ),
       yaxis = list(
-        title = "<b>Anzahl erfasster Fälle<b>"
+        title = "<b>Anzahl erfasster Fälle<b>",
+        tickformat=",.0d"
       ),
       margin = list(pad = 5)
     ) %>% 
@@ -332,9 +334,11 @@ server <- function(input, output, session) {
     plot <- plot_ly() %>%
     layout(
       barmode = 'group',
+      separators = ",.",
       colorway = blue_palette(6),
       xaxis = list(
-        title = "<b>Anzahl erfasster Fälle<b>"
+        title = "<b>Anzahl erfasster Fälle<b>",
+        tickformat=",.0d"
       ),
       yaxis = list(
         title = "<b>Straftat<b>",