1*2abb3134SXin Li#!/usr/bin/Rscript 2*2abb3134SXin Li# 3*2abb3134SXin Li# Common utility library for all R scripts. 4*2abb3134SXin Li 5*2abb3134SXin Li# Log message with timing. Example: 6*2abb3134SXin Li# 7*2abb3134SXin Li# _____ 1.301 My message 8*2abb3134SXin Li# 9*2abb3134SXin Li# The prefix makes it stand out (vs R's print()), and the number is the time so 10*2abb3134SXin Li# far. 11*2abb3134SXin Li# 12*2abb3134SXin Li# NOTE: The shell script log uses hyphens. 13*2abb3134SXin Li 14*2abb3134SXin LiLog <- function(...) { 15*2abb3134SXin Li cat(sprintf('_____ %.3f ', proc.time()[['elapsed']])) 16*2abb3134SXin Li cat(sprintf(...)) 17*2abb3134SXin Li cat('\n') 18*2abb3134SXin Li} 19