Use literal format string

r-lib · Jan 9, 2024 · 8797f5b · 8797f5b
1 parent 29599cc
commit 8797f5b
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/src/internal/tests.c b/src/internal/tests.c
@@ -101,20 +101,20 @@ r_obj* ffi_test_r_warn(r_obj* x) {
 }
 
 r_obj* ffi_test_Rf_warning(r_obj* msg) {
-  Rf_warning(r_chr_get_c_string(msg, 0));
+  Rf_warning("%s", r_chr_get_c_string(msg, 0));
   return r_null;
 }
 r_obj* ffi_test_Rf_error(r_obj* msg) {
-  Rf_error(r_chr_get_c_string(msg, 0));
+  Rf_error("%s", r_chr_get_c_string(msg, 0));
   return r_null;
 }
 
 r_obj* ffi_test_Rf_warningcall(r_obj* call, r_obj* msg) {
-  Rf_warningcall(call, r_chr_get_c_string(msg, 0));
+  Rf_warningcall(call, "%s", r_chr_get_c_string(msg, 0));
   return r_null;
 }
 r_obj* ffi_test_Rf_errorcall(r_obj* call, r_obj* msg) {
-  Rf_errorcall(call, r_chr_get_c_string(msg, 0));
+  Rf_errorcall(call, "%s", r_chr_get_c_string(msg, 0));
   return r_null;
 }