From 5aee11f2e06bbd463bab462b6c378dfbd7394e51 Mon Sep 17 00:00:00 2001
From: sorhawell <sorhawell@gmail.com>
Date: Fri, 4 Aug 2023 23:10:46 +0200
Subject: [PATCH] make fmt

---
 R/dataframe__frame.R               |  9 ++++-----
 man/DataFrame_join.Rd              |  8 ++++----
 tests/testthat/test-extendr-meta.R | 10 ++++------
 3 files changed, 12 insertions(+), 15 deletions(-)

diff --git a/R/dataframe__frame.R b/R/dataframe__frame.R
index 3826d2ae5..46f5e3e0a 100644
--- a/R/dataframe__frame.R
+++ b/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()
 }
diff --git a/man/DataFrame_join.Rd b/man/DataFrame_join.Rd
index 86572e40c..151aaf708 100644
--- a/man/DataFrame_join.Rd
+++ b/man/DataFrame_join.Rd
@@ -40,13 +40,13 @@ join DataFrame with other 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")
 
 }
diff --git a/tests/testthat/test-extendr-meta.R b/tests/testthat/test-extendr-meta.R
index 92922542a..9a9708967 100644
--- a/tests/testthat/test-extendr-meta.R
+++ b/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))
-
 })