bug in read_rm numeric cols

dwinter · dwinter · commit a3ce8b2f1c49 · 2021-04-01T16:30:09.000+13:00
diff --git a/R/IO.r b/R/IO.r
@@ -58,7 +58,7 @@ read_rm <- function(file, tibble=FALSE, keep_order=TRUE, include_secondary = FAL
     }
     #everything is a character at the moment, and the parentheses around 
     # the "extend" is nt helpful in R
-    res <- .numerify(res, c(1:4, 6,7, 13))
+    res <- .numerify(res, c(1:4, 6,7, 12:13))
     res <- .de_paren(res, c("textend", "qextend"))
     if(keep_order){
 

Original file line number	Diff line number	Diff line change
`@@ -58,7 +58,7 @@ read_rm <- function(file, tibble=FALSE, keep_order=TRUE, include_secondary = FAL`
`58`	`58`	`}`
`59`	`59`	`#everything is a character at the moment, and the parentheses around`
`60`	`60`	`# the "extend" is nt helpful in R`
`61`		`- res <- .numerify(res, c(1:4, 6,7, 13))`
	`61`	`+ res <- .numerify(res, c(1:4, 6,7, 12:13))`
`62`	`62`	`res <- .de_paren(res, c("textend", "qextend"))`
`63`	`63`	`if(keep_order){`
`64`	`64`