Change = for <-

Bisaloo · Bisaloo · commit 253a899c5c55 · 2020-01-27T11:55:09.000+01:00
diff --git a/R/parse_oceanoptics_converted.R b/R/parse_oceanoptics_converted.R
@@ -66,7 +66,7 @@ lr_parse_jaz <- function(filename) {
   # Some files are missing the ending "tag". Let's then assume that data go to
   # the end of file.
   if (length(data_end)==0) {
-    data_end = length(content)
+    data_end <- length(content)
   }
 
   # Some files have an extra header for the data, some don't...

Original file line number	Diff line number	Diff line change
`@@ -66,7 +66,7 @@ lr_parse_jaz <- function(filename) {`
`66`	`66`	`# Some files are missing the ending "tag". Let's then assume that data go to`
`67`	`67`	`# the end of file.`
`68`	`68`	`if (length(data_end)==0) {`
`69`		`- data_end = length(content)`
	`69`	`+ data_end <- length(content)`
`70`	`70`	`}`
`71`	`71`
`72`	`72`	`# Some files have an extra header for the data, some don't...`