changed layout of table_lastentrys (fontsize ed), and one variable-name-change I forgot.

code.R

@@ -138,13 +138,14 @@ doId <- function(input) {
     filter(date == max(date, na.rm=TRUE))
 
   tabel_lastswam=tabel_LastEntrys%>%select(c('distance', 'stroke', 'poolType', 'date'))
-  kolombreedte=unname(sapply(tabel_lastswam, function(x) max(nchar(as.character(x)))+5))
-  plottabel_LastSwam=plot_ly(type='table', columnwidth=kolombreedte,
+  kolombreedte=unname(sapply(tabel_lastswam, function(x) max(nchar(as.character(x)))))
+  plottabel_LastSwam=plot_ly(type='table', columnwidth=kolombreedte, font=list(size=16),
                              header = list(values=colnames(tabel_lastswam),font=list(size=16)),
                              cells=list(values=t(tabel_lastswam[order(tabel_lastswam$date),]),
                                         fill= list(color = list(kleurenset_pooltypes[tabel_lastswam$poolType])),
                                         align='left',
-                                        font=list(size=16)))
+                                        font=list(size=16),
+                                        height=20))
   plottabel_LastSwam<-plottabel_LastSwam %>% layout(title='Last swam par distance and pooltype')
   appendPlotly(plottabel_LastSwam)
 
@@ -157,7 +158,7 @@ doId <- function(input) {
       ggplot(data=x, aes(fill=distance, y=points, x=distance, label=poolType, text=date))+
         geom_col(position=position_dodge2(preserve='single'))+
         scale_fill_manual(values=kleurenset_afstanden, limits=force)+
-        scale_y_continuous(expand=c(0,0), limits=c(0, max(tabel_Prs$points)+15))+
+        scale_y_continuous(expand=c(0,0), limits=c(0, max(tabel_Prs_metpooltype$points)+15))+
         theme(panel.grid.major = element_blank())+ggtitle(" ")+
         facet_wrap(.~stroke, scales='free_x'),
       tooltip=c('x', 'y', 'label', 'text'))}
@@ -283,4 +284,4 @@ if (swimmerData != 0) {
   args <- commandArgs(trailingOnly = TRUE)
   if (length(args) == 1 && args[1] == "test") quit(status = 0)
   backend$start(app, http_port = 8080)
-}
+}
\ No newline at end of file