date filtering code snippets in r