add the show() method to see if it works with source(.R)