diff --git a/Lib/r/rtype.swg b/Lib/r/rtype.swg
index ef65b8210..fb616ffbe 100644
--- a/Lib/r/rtype.swg
+++ b/Lib/r/rtype.swg
@@ -50,7 +50,7 @@
 %typemap("rtypecheck") bool, bool &
   %{ is.logical($arg) && length($arg) == 1 %}
 %typemap("rtypecheck") bool *
-  %{ is.logical($arg) % }
+  %{ is.logical($arg) %}
 
 /*
   Set up type checks to insure overloading precedence.
@@ -58,6 +58,12 @@
   they get called if length = 1
 */
 
+%typecheck(SWIG_TYPECHECK_BOOL) bool {}
+%typecheck(SWIG_TYPECHECK_UINT32) unsigned int {}
+%typecheck(SWIG_TYPECHECK_INTEGER) int {}
+%typecheck(SWIG_TYPECHECK_FLOAT) float {}
+%typecheck(SWIG_TYPECHECK_DOUBLE) double {}
+
 %typecheck(SWIG_TYPECHECK_BOOL_PTR) bool * {}
 %typecheck(SWIG_TYPECHECK_INT32_PTR) int * {}
 %typecheck(SWIG_TYPECHECK_FLOAT_PTR) float * {}