Avoid R_UnboundValue

gaborcsardi · gaborcsardi · commit eef82e93a817 · 2026-04-08T19:14:05.000+02:00
It is not allowed now. But it is also not needed.
diff --git a/src/progress.c b/src/progress.c
@@ -352,9 +352,7 @@ void cli_progress_done(SEXP bar) {
 
 int cli_progress_num(void) {
   SEXP clienv = PROTECT(clic__find_var(cli_pkgenv, Rf_install("clienv")));
-  if (clienv == R_UnboundValue) error("Cannot find 'clienv'");
   SEXP bars = PROTECT(clic__find_var(clienv, Rf_install("progress")));
-  if (bars == R_UnboundValue) error("Cannot find 'clienv$progress'");
   UNPROTECT(2);
   return LENGTH(bars);
 }

Original file line number	Diff line number	Diff line change
`@@ -352,9 +352,7 @@ void cli_progress_done(SEXP bar) {`
`352`	`352`
`353`	`353`	`int cli_progress_num(void) {`
`354`	`354`	`SEXP clienv = PROTECT(clic__find_var(cli_pkgenv, Rf_install("clienv")));`
`355`		`- if (clienv == R_UnboundValue) error("Cannot find 'clienv'");`
`356`	`355`	`SEXP bars = PROTECT(clic__find_var(clienv, Rf_install("progress")));`
`357`		`- if (bars == R_UnboundValue) error("Cannot find 'clienv$progress'");`
`358`	`356`	`UNPROTECT(2);`
`359`	`357`	`return LENGTH(bars);`
`360`	`358`	`}`