just  use to test some simple file in r