pomodoro R script