Update get_source_expressions to work with the fixed R parser in 3.6

Author: jimhester

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: lintr
 Title: A 'Linter' for R Code
-Version: 1.0.2
+Version: 1.0.3
 Authors@R: person("Jim", "Hester", email = "james.f.hester@gmail.com", role = c("aut", "cre"))
 URL: https://github.com/jimhester/lintr
 BugReports: https://github.com/jimhester/lintr/issues

NEWS.md

@@ -1,3 +1,6 @@
+# lintr 1.0.3 #
+* Fix tests to work with changes in the parser in R 3.6
+
 # lintr 1.0.2 #
 * Fix tests to work with upcoming testthat release.
 

R/get_source_expressions.R

@@ -214,7 +214,7 @@ fix_eq_assign <- function(pc) {
   }
 
   eq_assign_locs <- which(pc$token == "EQ_ASSIGN")
-  if (length(eq_assign_locs) == 0L) {
+  if (length(eq_assign_locs) == 0L || "equal_assign" %in% pc$token) {
     return(pc)
   }
 
@@ -267,7 +267,7 @@ fix_eq_assign <- function(pc) {
 
     parent[i] <- pc[eq_assign_locs[true_locs[i]], "parent"]
 
-    token[i] <- "expr"
+    token[i] <- "expr" # R now uses "equal_assign"
 
     terminal[i] <- FALSE
 
@@ -315,5 +315,5 @@ top_level_expressions <- function(pc) {
   if (is.null(pc)) {
     return(NULL)
   }
-  which(pc$parent == 0L & pc$token == "expr")
+  which(pc$parent == 0L & pc$token %in% c("expr","equal_assign"))
 }