Add log function to R Script