fix lintr

Author: m7pr

R/qenv-eval_code.R

@@ -119,6 +119,5 @@ setMethod("eval_code", signature = c("qenv.error", "ANY"), function(object, code
 }
 
 get_code_attr <- function(qenv, attr) {
-  # unlist(lapply(qenv@code, attr, attr)) # somehow doesn't work
   unlist(lapply(qenv@code, function(x) attr(x, attr)))
 }

R/utils-get_code_dependency.R

@@ -229,7 +229,7 @@ extract_occurrence <- function(pd) {
       if (length(params > 1)) {
         remove <- integer(0)
         for (i in 2:length(params)) {
-          if (params[i - 1] == "=" & params[i] == ",") {
+          if (params[i - 1] == "=" && params[i] == ",") {
             remove <- c(remove, i - 1, i)
           }
         }
@@ -328,7 +328,7 @@ extract_dependency <- function(parsed_code) {
     # extract_calls is needed to reorder the pd so that assignment operator comes before symbol names
     # extract_calls is needed also to substitute assignment operators into specific format with fix_arrows
     # extract_calls is needed to omit empty calls that contain only one token `"';'"`
-    # This cleaning is needed as extract_occurrence assumes arrows are fixed, and order is different than in original pd.
+    # This cleaning is needed as extract_occurrence assumes arrows are fixed, and order is different than in original pd
     c(extract_side_effects(reordered_pd[[1]]), extract_occurrence(reordered_pd[[1]]))
   }
 }

vignettes/qenv.Rmd

@@ -126,7 +126,7 @@ In cases where warnings or messages arise while evaluating code within a `qenv`
 
 ```{r}
 q_message <- eval_code(qenv(), quote(message("this is a message")))
-# get_messages(q_message) # TODO - this function does not exist
+# TODO: this function does not exist yet get_messages(q_message)
 
 q_warning <- eval_code(qenv(), quote(warning("and this is a warning")))
 get_warnings(q_warning)