From 71ae2bf8af724a46660cebc150fd68a4357775c4 Mon Sep 17 00:00:00 2001
From: Josiah Parry <josiah.parry@gmail.com>
Date: Mon, 25 Nov 2024 21:21:52 -0800
Subject: [PATCH] catching some lints of course

---
 DESCRIPTION            | 1 -
 R/generate_toml.R      | 3 +--
 R/standalone-purrr.R   | 2 +-
 R/toml_serialization.R | 2 +-
 4 files changed, 3 insertions(+), 5 deletions(-)

diff --git a/DESCRIPTION b/DESCRIPTION
index f3a90aef..66636ff2 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -48,7 +48,6 @@ Imports:
     jsonlite,
     pkgbuild (>= 1.4.0),
     processx,
-    purrr,
     rlang (>= 1.0.5),
     rprojroot,
     stringi,
diff --git a/R/generate_toml.R b/R/generate_toml.R
index 7ec7d5e0..8010d905 100644
--- a/R/generate_toml.R
+++ b/R/generate_toml.R
@@ -3,14 +3,13 @@ generate_cargo.toml <- function(libname = "rextendr",
                                 patch.crates_io = NULL,
                                 extendr_deps = NULL,
                                 features = character(0)) {
-  
+
   # create an empty list if no dependencies are provided
   deps <- dependencies %||% list()
   # enabled extendr features that we need to impute into all of the
   # dependencies
   to_impute <- enable_features(extendr_deps, features)
 
-  # impute that extendr 
   for (.name in names(to_impute)) {
     deps[[.name]] <- to_impute[[.name]]
   }
diff --git a/R/standalone-purrr.R b/R/standalone-purrr.R
index f836ae25..f9322322 100644
--- a/R/standalone-purrr.R
+++ b/R/standalone-purrr.R
@@ -233,4 +233,4 @@ list_c <- function(x) {
   rlang::inject(c(!!!x))
 }
 
-# nocov end
\ No newline at end of file
+# nocov end
diff --git a/R/toml_serialization.R b/R/toml_serialization.R
index 2a2d212c..14b7eb1d 100644
--- a/R/toml_serialization.R
+++ b/R/toml_serialization.R
@@ -73,7 +73,7 @@ to_toml <- function(...,
     # The values can be (1) header and body, (2) header only, or (3) body only.
     # In the case of (2) and (3) the other element is of length 0, so we need to
     # remove them by `c()` first, and then concatenate by "\n" if both exists
-    x <- glue_collapse(c(header, body), "\n")
+    glue_collapse(c(header, body), "\n")
   })
 
   glue_collapse(tables, "\n\n")