[skip style] [skip vbump] Restyle files

Author: github-actions[bot]

R/qenv-subset.R

@@ -40,10 +40,8 @@ setMethod("subset", signature = c("qenv"), function(object, names) {
   object@messages <- object@messages[indexes]
 
   object
-
 })
 
 setMethod("subset", signature = c("qenv.error", "ANY"), function(object, names) {
   object
 })
-

R/utils-get_code_dependency.R

@@ -471,4 +471,3 @@ extract_comments <- function(parsed_code) {
     get_comments
   ))
 }
-

tests/testthat/test-qenv_get_code.R

@@ -586,8 +586,10 @@ testthat::test_that("detects occurrence of a function definition with a @linksto
   q <- eval_code(qenv(), code)
   testthat::expect_identical(
     get_code(q, names = "x"),
-    c("foo <- function() {\n    env <- parent.frame()\n    env$x <- 0\n}",
-      "foo() # @linksto x")
+    c(
+      "foo <- function() {\n    env <- parent.frame()\n    env$x <- 0\n}",
+      "foo() # @linksto x"
+    )
   )
 })
 # $ ---------------------------------------------------------------------------------------------------------------

tests/testthat/test-qenv_get_warnings.R

@@ -28,7 +28,7 @@ testthat::test_that("get_warnings accepts a qenv object with 2 warnings", {
     eval_code(bquote(warning("This is a warning 1!"))) %>%
     eval_code(bquote(warning("This is a warning 2!")))
   testthat::expect_identical(
-    get_warnings(q), #TODO fix
+    get_warnings(q), # TODO fix
     paste0(
       "~~~ Warnings ~~~\n\n> This is a warning 1!\nwhen running code:\nwarning(\"This is a warning 1!\")",
       "\n\n> This is a warning 2!\nwhen running code:\nwarning(\"This is a warning 2!\")\n\n",
@@ -42,9 +42,10 @@ testthat::test_that("get_warnings accepts a qenv object with a single eval_code
     warning("This is a warning 1!")
     warning("This is a warning 2!")
   }))
-  testthat::expect_identical( #TODO fix
+  testthat::expect_identical( # TODO fix
     get_warnings(q),
-    c("~~~ Warnings ~~~\n\n> This is a warning 1!\nwhen running code:\nwarning(\"This is a warning 1!\")\n\n> This is a warning 2!\nwhen running code:\nwarning(\"This is a warning 2!\")\n\n~~~ Trace ~~~\n\nwarning(\"This is a warning 1!\")",
+    c(
+      "~~~ Warnings ~~~\n\n> This is a warning 1!\nwhen running code:\nwarning(\"This is a warning 1!\")\n\n> This is a warning 2!\nwhen running code:\nwarning(\"This is a warning 2!\")\n\n~~~ Trace ~~~\n\nwarning(\"This is a warning 1!\")",
       "~~~ Warnings ~~~\n\n> This is a warning 1!\nwhen running code:\nwarning(\"This is a warning 1!\")\n\n> This is a warning 2!\nwhen running code:\nwarning(\"This is a warning 2!\")\n\n~~~ Trace ~~~\n\nwarning(\"This is a warning 2!\")"
     )
   )
@@ -55,7 +56,7 @@ testthat::test_that("get_warnings accepts a qenv object with 1 warning eval_code
     eval_code(bquote("x <- 1")) %>%
     eval_code(bquote(warning("This is a warning 2!")))
   testthat::expect_identical(
-    get_warnings(q), #TODO fix
+    get_warnings(q), # TODO fix
     paste0(
       "~~~ Warnings ~~~\n\n> This is a warning 2!\nwhen running code:\nwarning(\"This is a warning 2!\")\n\n",
       "~~~ Trace ~~~\n\nx <- 1\nwarning(\"This is a warning 2!\")"

tests/testthat/test-qenv_join.R

@@ -42,7 +42,7 @@ testthat::test_that("Joined qenv does not duplicate common code", {
     q@code,
     c("iris1 <- iris", "mtcars1 <- mtcars", "mtcars2 <- mtcars")
   )
-  testthat::expect_identical(q@id, c(q1@id, q2@id[2])) #TODO fix
+  testthat::expect_identical(q@id, c(q1@id, q2@id[2])) # TODO fix
 })
 
 testthat::test_that("Not able to join two qenvs if any of the shared objects changed", {
@@ -72,7 +72,7 @@ testthat::test_that("join does not duplicate code but adds only extra code", {
     list(iris1 = iris, iris2 = iris, mtcars1 = mtcars, mtcars2 = mtcars)
   )
 
-  testthat::expect_identical(q@id, c(q1@id, q2@id[2])) #TODO - fix this
+  testthat::expect_identical(q@id, c(q1@id, q2@id[2])) # TODO - fix this
 })
 
 testthat::test_that("Not possible to join qenvs which share some code when one of the shared object was modified", {

tests/testthat/test-qenv_subset.R

@@ -1,6 +1,6 @@
 testthat::test_that("subset extract proper objects", {
   q <- qenv()
-  code <- c("x<-1","a<-1;b<-2")
+  code <- c("x<-1", "a<-1;b<-2")
   q <- eval_code(q, code)
   object_names <- c("x", "a")
   qs <- subset(q, names = object_names)
@@ -9,7 +9,7 @@ testthat::test_that("subset extract proper objects", {
 
 testthat::test_that("subset extract proper code", {
   q <- qenv()
-  code <- c("x<-1","a<-1;b<-2")
+  code <- c("x<-1", "a<-1;b<-2")
   q <- eval_code(q, code)
   object_names <- c("x", "a")
   qs <- subset(q, names = object_names)
@@ -21,7 +21,7 @@ testthat::test_that("subset extract proper code", {
 
 testthat::test_that("subset preservers comments in the code", {
   q <- qenv()
-  code <- c("x<-1 #comment","a<-1;b<-2")
+  code <- c("x<-1 #comment", "a<-1;b<-2")
   q <- eval_code(q, code)
   qs <- subset(q, names = c("x", "a"))
   testthat::expect_identical(
@@ -41,5 +41,4 @@ testthat::test_that("subset extract proper elements of @id, @warnings and @messa
   testthat::expect_identical(qs@code, q@code[c(1, 3)])
   testthat::expect_identical(qs@warnings, q@warnings[c(1, 3)])
   testthat::expect_identical(qs@messages, q@messages[c(1, 3)])
-
 })