Init updates

[dblodgett-usgs]

Fixes #329 pending review.

[amart90]

Thanks for humoring my request! I tested the new functionality out on a reproducible example targets pipeline.

library(sbtools)
library(targets)

# Log-in during interactive session
# Change username to valid ScienceBase username
sbtools::initialize_sciencebase_session(username = "USERNAME REDACTED")

# Create and execute targets pipeline in temp directory
tar_dir({
	# Define targets pipeline
	tar_script({
		# Read ScienceBase token from cache
		sbtools::initialize_sciencebase_session(
			username = sbtools::get_username(),
			token_text = sbtools::get_cached_token()
		)
		
		# Target list
		list(
			tar_target(is_logged_in, sbtools::is_logged_in()),
			tar_target(
				secured_file,
				sbtools::item_list_files("66e05a7ed34ecba8b86765d5")[["fname"]][1]
			)
		)
	})
	
	# Execute targets pipeline
	tar_make()
	
	# Load targets into global environment
	tar_load(c(is_logged_in, secured_file))
})

is_logged_in
#> [1] TRUE

secured_file
#> [1] "NYC_reservoir_monthly_storage_change-Domber-mgal.csv"

Everything worked exactly how it was expected.

I had one very minor suggestion in the function documentation to keep the capitalization function with the rest of the documentation. In either case, approved! Thanks again!

[amart90]

The logic in this function all makes sense to me.