diff --git a/Lib/r/rtype.swg b/Lib/r/rtype.swg
index 6479a0d64..60efcc6eb 100644
--- a/Lib/r/rtype.swg
+++ b/Lib/r/rtype.swg
@@ -82,7 +82,7 @@
 
 %typemap(scoercein) bool, bool *, bool & 
 		    "$input = as.logical($input) ";
-
+/*
 %typemap(scoercein) int, 
                     int *, 
 		    int &,
@@ -119,7 +119,7 @@
                     long*,
                     long long *
 %{  $input = as.numeric($input) %}
-
+*/
 
 %typemap(scoercein) char *, string, std::string,
 string &, std::string &