diff --git a/DESCRIPTION b/DESCRIPTION
index 0436da5..d68d109 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: osmdata
 Title: Import 'OpenStreetMap' Data as Simple Features or Spatial Objects
-Version: 0.2.5.021
+Version: 0.2.5.022
 Authors@R: c(
     person("Mark", "Padgham", , "mark.padgham@email.com", role = c("aut", "cre")),
     person("Bob", "Rudis", role = "aut"),
diff --git a/codemeta.json b/codemeta.json
index d37af0f..fa07a72 100644
--- a/codemeta.json
+++ b/codemeta.json
@@ -11,7 +11,7 @@
   "codeRepository": "https://github.com/ropensci/osmdata/",
   "issueTracker": "https://github.com/ropensci/osmdata/issues",
   "license": "https://spdx.org/licenses/GPL-3.0",
-  "version": "0.2.5.021",
+  "version": "0.2.5.022",
   "programmingLanguage": {
     "@type": "ComputerLanguage",
     "name": "R",
diff --git a/tests/testthat/test-sf-osm.R b/tests/testthat/test-sf-osm.R
index 7c7ab26..4732d00 100644
--- a/tests/testthat/test-sf-osm.R
+++ b/tests/testthat/test-sf-osm.R
@@ -133,7 +133,7 @@ test_that ("non-valid key names", {
     q0 <- opq (bbox = c (1, 1, 5, 5))
     x <- osmdata_sf (q0, osm_multi)
 
-    k <- lapply (x[grep ("osm_", names(x))], function (f) {
+    k <- lapply (x [grep ("osm_", names (x))], function (f) {
         expect_true ("name:ca" %in% names (f))
     })
 })
@@ -141,14 +141,14 @@ test_that ("non-valid key names", {
 test_that ("clashes in key names", {
     osm_multi_key_clashes <- test_path ("fixtures", "osm-key_clashes.osm")
     q0 <- opq (bbox = c (1, 1, 5, 5))
-    expect_warning(
+    expect_warning (
         x <- osmdata_sf (q0, osm_multi_key_clashes),
         "Feature keys clash with id or metadata columns and will be renamed by "
     )
 
     expect_false (any (duplicated (names (x$osm_points))))
     # x$osm_points don't have osm_id column in tags TODO?
-    k <- lapply (x[grep ("osm_", names (x))[-1]], function (f) {
+    k <- lapply (x [grep ("osm_", names (x)) [-1]], function (f) {
         expect_false (any (duplicated (names (f))))
         expect_true (all (c ("osm_id", "osm_id.1") %in% names (f)))
     })