fixes from code review

Author: AndLLA

Examples/test-suite/r/Makefile.in

@@ -25,8 +25,7 @@ CPP_TEST_CASES += \
 	r_overload_array \
 	r_sexp \
         r_overload_comma \
-	r_use_isnull \
-	li_boost_shared_ptr
+	r_use_isnull
 
 # These tests are failing because enums currently cannot handle
 # arithmetic expressions

Source/Modules/r.cxx

@@ -2092,7 +2092,7 @@ int R::functionWrapper(Node *n) {
       Node * parent = Getattr(n, "parentNode");
       String * smartname = Getattr(parent, "feature:smartptr");
       if (smartname) {
-        String * classtypeobj = NewString(Getattr(parent, "classtypeobj")); // this is the correct name, e.g. ClassName(int)
+        String * classtypeobj = Getattr(parent, "classtypeobj"); // this is the correct name, e.g. ClassName(int)
         String * classtype = NewString(Getattr(parent, "classtype")); // this is the "wrong" name e.g. ClassName<int>
 
         // we replace inside smartname ClassName<int> with ClassName(int)
@@ -2103,7 +2103,6 @@ int R::functionWrapper(Node *n) {
         String * smartname_fixed_rclass = getRClassName(smartname_fixed, 1, 1);
         Replaceall(tm, "$R_class", smartname_fixed_rclass);
 
-        Delete(classtypeobj);
         Delete(classtype);
         Delete(smartname_fixed);
         Delete(smartname_fixed_rclass);