small fix in Col constructor

Author: Enchufa2

ChangeLog

@@ -1,3 +1,10 @@
+2026-09-22  Iñaki Ucar <iucar@fedoraproject.org>
+
+	* inst/include/Rcpp/sugar/matrix/col.h: Fix Col constructor using ncol()
+	instead of nrow() to set the number of rows
+	* inst/tinytest/test_sugar.R: Add a non-square matrix test case for the
+	row()/col() sugar functions
+
 2026-09-05  Iñaki Ucar <iucar@fedoraproject.org>
 
 	* .github/workflows/werror.yaml: Add -Wconversion

inst/include/Rcpp/sugar/matrix/col.h

@@ -35,7 +35,7 @@ class Col : public MatrixBase<
 public:
 	typedef Rcpp::MatrixBase<RTYPE,LHS_NA,LHS_T> LHS_TYPE ;
 
-	Col( const LHS_TYPE& lhs) : nr( static_cast<int>(lhs.ncol()) ), nc( static_cast<int>(lhs.ncol()) ) {}
+	Col( const LHS_TYPE& lhs) : nr( static_cast<int>(lhs.nrow()) ), nc( static_cast<int>(lhs.ncol()) ) {}
 
 	inline int operator()( int /*i*/, int j ) const {
 		return j + 1 ;

inst/tinytest/test_sugar.R

@@ -592,6 +592,14 @@ target <- list( row = row(m), col = col(m) )
 expect_equal( res, target )
 
 
+#    test.sugar.matrix.row.nonsquare <- function( ){
+fx <- runit_row
+m <- matrix(1:24, nrow = 6, ncol = 4)
+res <- fx(m)
+target <- list(row = row(m), col = col(m))
+expect_equal(res, target)
+
+
 #    test.sugar.diag <- function( ){
 fx <- runit_diag