comment out deliberate class coercing to numeric in strip_pts

Lindsay Carr · Lindsay Carr · commit f9174ae6d615 · 2016-11-07T14:09:11.000-06:00
diff --git a/R/utils-list.R b/R/utils-list.R
@@ -30,7 +30,7 @@ remove_field <- function(list, param){
 
 strip_pts <- function(list, param){
   out <- c()
-  out.class <- 'numeric'
+  # out.class <- 'numeric'
   for (v in param){
     if (v %in% names(list) && !inherits(list[[v]], c('function','formula'))) {
       v.vals <- list[[v]]
@@ -55,7 +55,7 @@ strip_pts <- function(list, param){
     }
     
   }
-  class(out) <- out.class
+  # class(out) <- out.class
   return(out)
 }
 

Original file line number	Diff line number	Diff line change
`@@ -30,7 +30,7 @@ remove_field <- function(list, param){`
`30`	`30`
`31`	`31`	`strip_pts <- function(list, param){`
`32`	`32`	`out <- c()`
`33`		`- out.class <- 'numeric'`
	`33`	`+ # out.class <- 'numeric'`
`34`	`34`	`for (v in param){`
`35`	`35`	`if (v %in% names(list) && !inherits(list[[v]], c('function','formula'))) {`
`36`	`36`	`v.vals <- list[[v]]`
`@@ -55,7 +55,7 @@ strip_pts <- function(list, param){`
`55`	`55`	`}`
`56`	`56`
`57`	`57`	`}`
`58`		`- class(out) <- out.class`
	`58`	`+ # class(out) <- out.class`
`59`	`59`	`return(out)`
`60`	`60`	`}`
`61`	`61`