Reflect registration status when writing setLoadAction()

eddelbuettel · eddelbuettel · commit f68892856756 · 2023-03-19T12:05:11.000-05:00
diff --git a/src/attributes.cpp b/src/attributes.cpp
@@ -2539,8 +2539,11 @@ namespace attributes {
             ostr() << "# Register entry points for exported C++ functions"
                    << std::endl;
             ostr() << "methods::setLoadAction(function(ns) {" << std::endl;
-            ostr() << "    .Call(`" << registerCCallableExportedName()
-                   << "`, PACKAGE = '" << package() << "')"
+            ostr() << "    .Call("
+                   << (registration_ ? "`" : "'")
+                   <<  registerCCallableExportedName()
+                   << (registration_ ? "`" : "'")
+                   << ", PACKAGE = '" << package() << "')"
                    << std::endl << "})" << std::endl;		// #nocov end
         }
     }

Original file line number	Diff line number	Diff line change
`@@ -2539,8 +2539,11 @@ namespace attributes {`
`2539`	`2539`	`ostr() << "# Register entry points for exported C++ functions"`
`2540`	`2540`	`<< std::endl;`
`2541`	`2541`	`ostr() << "methods::setLoadAction(function(ns) {" << std::endl;`
`2542`		- ostr() << " .Call(`" << registerCCallableExportedName()
`2543`		- << "`, PACKAGE = '" << package() << "')"
	`2542`	`+ ostr() << " .Call("`
	`2543`	+ << (registration_ ? "`" : "'")
	`2544`	`+ << registerCCallableExportedName()`
	`2545`	+ << (registration_ ? "`" : "'")
	`2546`	`+ << ", PACKAGE = '" << package() << "')"`
`2544`	`2547`	`<< std::endl << "})" << std::endl; // #nocov end`
`2545`	`2548`	`}`
`2546`	`2549`	`}`