Allow bcdc_get_data and bcdc_query_geodata to work on full url with resource

[ateucher]

e.g., https://catalogue.data.gov.bc.ca/dataset/current-provincial-electoral-districts-of-british-columbia/resource/89de1e77-9e33-41dd-bf6f-34e6d664b89a.

Should be a simple matter of detecting it (grepping for /resource/ and splitting it into record and resource id - an extension of

bcdata/R/utils.R

Lines 67 to 70 in c255edc

	slug_from_url <- function(x) {
	if (grepl("^(http|www)", x)) x <- basename(x)
	x
	}