We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent f060cce commit 93b88dbCopy full SHA for 93b88db
inst/include/testthat/testthat.h
@@ -172,7 +172,7 @@ inline std::ostream& cerr()
172
extern "C" SEXP run_testthat_tests(SEXP use_xml_sxp) {
173
bool use_xml = LOGICAL(use_xml_sxp)[0];
174
bool success = testthat::run_tests(use_xml);
175
- return ScalarLogical(success);
+ return Rf_ScalarLogical(success);
176
}
177
178
# endif // TESTTHAT_TEST_RUNNER
@@ -198,7 +198,7 @@ extern "C" SEXP run_testthat_tests(SEXP use_xml_sxp) {
198
# include <R.h>
199
# include <Rinternals.h>
200
extern "C" SEXP run_testthat_tests() {
201
- return ScalarLogical(true);
+ return Rf_ScalarLogical(true);
202
203
204
0 commit comments