Merge branch '211_subset@main' of https://github.com/insightsengineering/teal.code into 211_subset@main

Author: m7pr

R/qenv-get_warnings.R

@@ -37,7 +37,7 @@ setMethod("get_warnings", signature = c("qenv"), function(object) {
   idx_warn <- which(sapply(warnings, Negate(is.null)))
   warnings <- warnings[idx_warn]
   code <- object@code[idx_warn]
-  if (length(unlist(warnings)) == 0) {
+  if (length(warnings) == 0) {
     return(NULL)
   }
 

tests/testthat/test-qenv_get_code.R

@@ -635,7 +635,6 @@ testthat::test_that("detects cooccurrence properly even if all objects are on lh
 # @ ---------------------------------------------------------------------------------------------------------------
 
 testthat::test_that("understands @ usage and do not treat rhs of @ as objects (only lhs)", {
-
   code <- c(
     "setClass('aclass', slots = c(a = 'numeric', x = 'numeric', y = 'numeric')) # @linksto a x",
     "x <- new('aclass', a = 1:3, x = 1:3, y = 1:3)",
@@ -650,13 +649,13 @@ testthat::test_that("understands @ usage and do not treat rhs of @ as objects (o
   dependency <-
     lapply(
       code_split,
-      function(current_code){
+      function(current_code) {
         parsed_code <- parse(text = current_code, keep.source = TRUE)
         extract_dependency(parsed_code)
       }
     )
 
-  for(i in seq_along(code_split)){
+  for (i in seq_along(code_split)) {
     attr(code_split[[i]], "dependency") <- dependency[[i]]
   }