add three more nocov tags

Author: eddelbuettel

ChangeLog

@@ -1,3 +1,8 @@
+2021-07-19  Dirk Eddelbuettel  <edd@debian.org>
+
+	* inst/include/RcppEigenWrap.h: Two more #nocov tags
+	* src/fastLm.cpp: One more #nocov tag
+
 2021-07-18  Dirk Eddelbuettel  <edd@debian.org>
 
 	* inst/tinytest/test_fastLm.R: Add tests for summary

inst/include/RcppEigenWrap.h

@@ -213,7 +213,7 @@ namespace Rcpp{
         public:
             Exporter(SEXP x) : vec(x) {
                 if (TYPEOF(x) != RTYPE)
-                    throw std::invalid_argument("Wrong R type for mapped vector");
+                    throw std::invalid_argument("Wrong R type for mapped vector"); // #nocov
             }
             OUT get() {return OUT(vec.begin(), vec.size());}
         } ;
@@ -257,7 +257,7 @@ namespace Rcpp{
             public:
             Exporter(SEXP x) : vec(x), d_ncol(1), d_nrow(Rf_xlength(x)) {
                 if (TYPEOF(x) != RTYPE)
-                    throw std::invalid_argument("Wrong R type for mapped matrix");
+                    throw std::invalid_argument("Wrong R type for mapped matrix");	// #nocov
                 if (::Rf_isMatrix(x)) {
                     int *dims = INTEGER( ::Rf_getAttrib( x, R_DimSymbol ) ) ;
                     d_nrow = dims[0];

src/fastLm.cpp

@@ -142,7 +142,7 @@ namespace lmsol {
 	std::vector<int> iwork(8 * n);
 	double wrk;
 	if (m < n || S.size() != n || Vt.rows() != n || Vt.cols() != n)
-	    throw std::invalid_argument("dimension mismatch in gesvd");
+	    throw std::invalid_argument("dimension mismatch in gesvd"); // #nocov
 	F77_CALL(dgesdd)("O", &m, &n, A.data(), &m, S.data(), A.data(),
 			 &m, Vt.data(), &n, &wrk, &mone, &iwork[0], &info);
 	int lwork(wrk);