Run script else quit in R

I check if today is Friday and run a script & if not then quit, however I get a R Session Aborted message, asking if I want to restart.

library(lubridate)

if(weekdays(today()) == "Friday"){
  # RUN CODE
  10*10
}else{
  q(save="no")
}

I have also tried the ifelse() function and get the same results