exlicit NULL creation to make compatible with R3.2.0

lorenzwalthert · lorenzwalthert · commit 30d83aac71da · 2017-10-11T22:25:25.000+02:00
diff --git a/R/initialize.R b/R/initialize.R
@@ -39,7 +39,7 @@ initialize_spaces <- function(pd_flat) {
 }
 
 remove_line_col <- function(pd_flat) {
-  pd_flat[c("line1", "line2", "col1", "col2")] <- NULL
+  pd_flat[c("line1", "line2", "col1", "col2")] <- rep(list(NULL), 4)
   pd_flat
 }
 

Original file line number	Diff line number	Diff line change
`@@ -39,7 +39,7 @@ initialize_spaces <- function(pd_flat) {`
`39`	`39`	`}`
`40`	`40`
`41`	`41`	`remove_line_col <- function(pd_flat) {`
`42`		`- pd_flat[c("line1", "line2", "col1", "col2")] <- NULL`
	`42`	`+ pd_flat[c("line1", "line2", "col1", "col2")] <- rep(list(NULL), 4)`
`43`	`43`	`pd_flat`
`44`	`44`	`}`
`45`	`45`