changed fontsize of the heatmap and set dragmode=FALSE in the heatmap and in the last_entry table.

code.R

@@ -118,12 +118,13 @@ doId <- function(input) {
     filter(points == max(points, na.rm = TRUE)) %>%
     filter(time == min(time, na.rm=TRUE))
 
-  kleurentabel_prs <- ggplot(tabel_Prs_small, aes(distance, stroke)) +
+  heatmap_prs <- ggplot(tabel_Prs_small, aes(distance, stroke, text=date)) +
     geom_tile(aes(fill = points)) +
-    geom_text(aes(label = points)) +
+    geom_text(aes(label = points), size=7) +
     labs(title = "Heatmap punten per slag en afstand") +
     theme_bw()
-  appendPlot(kleurentabel_prs)
+  heatmap_prs<-ggplotly(heatmap_prs, tooltip=c('text'))%>%layout(dragmode=FALSE)
+  appendPlotly(heatmap_prs)
 
   tabel_LastEntrys<-zonder_split%>%
     group_by(distance, stroke, poolType) %>%
@@ -163,7 +164,7 @@ doId <- function(input) {
   tabel_lasts=tabel_lasts[tabel_lasts$points!=0,]
   facetwrap_lasts=tabel_lasts %>% split(.$stroke) %>%map(barplot_facets)
   facetwrap_lasts=facetwrap_lasts %>% subplot(widths=breedte_perslag, margin=0.01, shareY=TRUE) %>%
-    layout(showlegend=FALSE, title='Last entrys')
+    layout(showlegend=FALSE, dragmode=FALSE, title='Last entrys')
   appendPlotly(facetwrap_lasts)
 
   stippenplot_sizes<-ggplot(bovennul, aes(x=date, y=points, color=stroke, size=distance, group=AfstandSlag))+