Update R/theme_valentine.R