Plot shapefile r. path(getwd(), "Shapefile") for the dsn argument.