stop declaring td <- tempdir()