R Shiny dashboard shows incorrect datetime compared to base data

Question

R Shiny shows completely unrelated and wrong datetime compared to the baseline data: The output of baseline data:

data %>% group_by(Day = day(SampleTime),