extract code snippets in r

write a function that accepts a path to a r script and returns the paths declared there in r