Closes #271 surv_cnsr: allow CSNR > 1

[bundfussr]

What changes are proposed in this pull request?

Allow CNSR > 1 in Surv_CNSR() to be in line with CDISC recommendation.

If there is an GitHub issue associated with this pull request, please provide link.

#271

---

Reviewer Checklist (if item does not apply, mark as complete)

• Ensure all package dependencies are installed by running renv::install()
• PR branch has pulled the most recent updates from master branch. Ensure the pull request branch and your local version match and both have the latest updates from the master branch.
• If a new function was added, function included in _pkgdown.yml
• If a bug was fixed, a unit test was added for the bug check
• Run pkgdown::build_site(). Check the R console for errors, and review the rendered website.
• Overall code coverage remains >99.5%. Review coverage with withr::with_envvar(list(CI = TRUE), code = devtools::test_coverage()). Begin in a fresh R session without any packages loaded.
• R CMD Check runs without errors, warnings, and notes
• usethis::use_spell_check() runs with no spelling errors in documentation

When the branch is ready to be merged into master:

• Update NEWS.md with the changes from this pull request under the heading "# ggsurvfit (development version)". If there is an issue associated with the pull request, reference it in parentheses at the end update (see NEWS.md for examples).
• Increment the version number using usethis::use_version(which = "dev")
• Run usethis::use_spell_check() again
• Approve Pull Request
• Merge the PR. Please use "Squash and merge".

[ddsjoberg]

Looks great, thank you. Let's update one small data check, bump the version number, and merge.

[ddsjoberg]

Suggested change

	if (any(stats::na.omit(CNSR) < 0)) {
	stop("Expecting 'CNSR' argument to be non-negative (>=0).")
	if (any(stats::na.omit(CNSR) < 0) || any(!rlang::is_integerish(CNSR))) {
	stop("Expecting 'CNSR' argument to be non-negative integer (>=0).")

[bundfussr]

updated

[ddsjoberg]

Feel free to add your @bundfussr if you'd like.

[bundfussr]

good idea, done

[ddsjoberg]

Thanks @bundfussr !