add r history function