testData/parser/r/AssignmentInSubscription.r (2 lines of code) (raw):

fill[ , i2 <- c(1,ncol(fill))] <- "gray" fill[i1 <- c(1,nrow(fill)) , ] <- "gray"