make fmt

R/dataframe__frame.R

@@ -1003,13 +1003,13 @@ DataFrame_to_list = function(unnest_structs = TRUE) {
 #' @keywords DataFrame
 #' @examples
 #' # inner join by default
-#' df1 <- pl$DataFrame(list(key = 1:3, payload = c("f", "i", NA)))
-#' df2 <- pl$DataFrame(list(key = c(3L, 4L, 5L, NA_integer_)))
+#' df1 = pl$DataFrame(list(key = 1:3, payload = c("f", "i", NA)))
+#' df2 = pl$DataFrame(list(key = c(3L, 4L, 5L, NA_integer_)))
 #' df1$join(other = df2, on = "key")
 #'
 #' # cross join
-#' df1 <- pl$DataFrame(x = letters[1:3])
-#' df2 <- pl$DataFrame(y = 1:4)
+#' df1 = pl$DataFrame(x = letters[1:3])
+#' df2 = pl$DataFrame(y = 1:4)
 #' df1$join(other = df2, how = "cross")
 #'
 DataFrame_join = function(
@@ -1560,7 +1560,6 @@ DataFrame_glimpse = function(..., return_as_string = FALSE) {
 #' df
 #'
 #' df$explode("numbers")
-
 DataFrame_explode = function(columns, ...) {
   self$lazy()$explode(columns, ...)$collect()
 }

tests/testthat/test-extendr-meta.R

@@ -1,18 +1,16 @@
 test_that("clone_robj + mem_adress", {
-
   # clone mutable
-  env  = new.env(parent = emptyenv())
+  env = new.env(parent = emptyenv())
   env2 = clone_robj(env)
   env$foo = 42
-  expect_identical(env,env2)
+  expect_identical(env, env2)
   expect_identical(pl$mem_address(env), pl$mem_address(env2))
 
   # clone immutable, not the same
   l = list()
   l2 = clone_robj(l)
   l$foo = 42
-  expect_identical(l,list(foo = 42))
-  expect_identical(l2,list())
+  expect_identical(l, list(foo = 42))
+  expect_identical(l2, list())
   expect_false(pl$mem_address(l) == pl$mem_address(l2))
-
 })