diff --git a/Lib/r/r.swg b/Lib/r/r.swg
index 0ab7e11a0..0a4d0c36e 100644
--- a/Lib/r/r.swg
+++ b/Lib/r/r.swg
@@ -79,7 +79,7 @@ SWIG_InitializeModule(0);
 
 %typemap(scheck) int %{
   if(length($input) > 1) {
-     Rf_warning("using only the first element of $input")
+     warning("using only the first element of $input")
   }
 %}