Extract download limits directly from WFS

[boshek]

This PR:

• Create a bcdc_single_download_limit function
• Tests that function
• Uses that function to set the "bcdata.single_download_limit" on package load
• Directly access that option is a few functions

Not yet implemented:
- A test that makes sure one can reset that option.

[boshek]

@ateucher any thoughts on how to test to see if one can change an option if it is set by package load?

I tried this:

bcdata/tests/testthat/test-options.R

Lines 37 to 41 in 919333c

	test_that("bcdata.single_download_limit can be changes",{
	lt <- withr::local_options(list(bcdata.single_download_limit = 13),
	getOption("bcdata.single_download_limit"))
	expect_equal(lt$bcdata.single_download_limit, 13)
	})

But that doesn't seem to stick.

[ateucher]

Sorry, I didn't look closely enough at your approach...

What if we did this:

1. In .onLoad, we set ._bcdata_env$bcdata_dl_limit <- bcdc_single_download_limit()
2. When we need that value (e.g., here, here), we call getOption("bcdata.single_download_limit", default = ._bcdata_env$bcdata_dl_limit)

This allows a user to set the option, but if they don't we have a safe default - and someone couldn't inadvertently unset it (e.g., with options(bcdata.single_download_limit = NULL), which would leave everything in a broken state.

This would also allow us to check a user's set option against the catalogue's hard cap and throw an error if it's higher...