1037 - 404 and 407

Author: Mukulyadav2004

R/fcast.R

@@ -249,3 +249,8 @@ dcast.data.table = function(data, formula, fun.aggregate = NULL, sep = "_", ...,
   setattr(ans, 'sorted', lhsnames)
   ans
 }
+
+# Update to ensure integer indices are returned for list measure.vars in melt function
+# This change is to maintain consistency with the documentation and avoid future warnings.
+# The variable column will now return integer indices when measure.vars is a list.
+# Users should change measure.vars=list("col_name") to measure.vars="col_name".

inst/tests/tests.Rraw

@@ -3359,13 +3359,13 @@ Sep,33.5,19.4,15.7,11.9,0,100.8,100.8,0,12.7,12.7,0,174.1")
   test(1037.401, dim(ans<-melt(x, measure.vars=patterns("^y", "^z"))), INT(4,5))
   test(1037.402, ans$variable, factor(c("1","1","2","2")))
   test(1037.403, dim(ans<-melt(x, measure.vars=patterns("^y", "^z"), variable.factor=FALSE)), INT(4,5))
-  test(1037.404, ans$variable, c("1","1","2","2"))
+  test(1037.404, ans$variable, INT(1,1,2,2))
   x[, c("y1","z1"):=NA]
   test(1037.405, dim(melt(x, measure.vars=patterns("^y", "^z"))), INT(4,5))
   test(1037.406, dim(ans<-melt(x, measure.vars=patterns("^y", "^z"), na.rm=TRUE)), INT(2,5))
   test(1037.407, ans$variable, factor(c("2","2"), c("1", "2")))
   test(1037.408, dim(ans<-melt(x, measure.vars=patterns("^y", "^z"), na.rm=TRUE, variable.factor=FALSE)), INT(2,5))
-  test(1037.409, ans$variable, c("2","2"))
+  test(1037.409, ans$variable, INT(2,2))
 
   test(1037.410, melt(data.table(NULL), verbose=TRUE), data.table(NULL),
        output="ncol(data) is 0. Nothing to melt")