All `*profile*()` functions now warn if the user adjusts the `*threshold` arguments in any way

[maurolepore]

Closes #753

This reduces the chances that the user will modify the thresholds by mistake.

NOTE. I see a failing check. It may be unrelated but I need to investigate.

reprex

devtools::load_all()
#> ℹ Loading tiltIndicator

companies <- example_companies()
scenarios <- example_scenarios(year = 2050)

# Using the default thresholds yields no warning
out <- sector_profile(companies, scenarios)

# Using the `*threshold` argument in any way yields a warning
out <- sector_profile(companies, scenarios, low_threshold = 1/4)
#> Warning: The default thresholds are generally the most useful.
#> ℹ Do you really need to adjust them?

out <- sector_profile(companies, scenarios, high_threshold = 1/4)
#> Warning: The default thresholds are generally the most useful.
#> ℹ Do you really need to adjust them?

# You get the warning for all indicators, and even if you use the same value
# as the default -- which isn't ideal but is simplest
formals(emissions_profile)
#> $companies
#> 
#> 
#> $co2
#> 
#> 
#> $low_threshold
#> 1/3
#> 
#> $high_threshold
#> 2/3

co2 <- example_products()
out <- emissions_profile(companies, co2, low_threshold = 1/3)
#> Warning: The default thresholds are generally the most useful.
#> ℹ Do you really need to adjust them?

---

TODO

• [x] Link related issue/PR.
• [x] Describe the goal of the PR. Avoid details that are clear in the diff.
• [x] Mark the PR as draft.
• [x] Include a unit test.
• [x] Review your own PR in "Files changed".
• [x] Ensure the PR branch is updated.
• [x] Ensure the checks pass.
• [x] Change the status from draft to ready.
• [ ] Polish the PR title and description.
• [ ] Assign a reviewer.

EXCEPTIONS

• [ ] Slide here any item that you intentionally choose to not do.

[maurolepore]

Closing in favor of https://github.com/2DegreesInvesting/tiltWorkflows/pull/146