From 60f3cb11bd25c98e558117c91fcdcfedb70b7ff0 Mon Sep 17 00:00:00 2001 From: Mike Date: Mon, 16 Oct 2023 15:06:43 -0500 Subject: [PATCH] Style and add release questions --- R/multi_scale.R | 2 -- R/zzz.R | 7 +++++++ tests/testthat/test-multi_scale.R | 2 -- 3 files changed, 7 insertions(+), 4 deletions(-) create mode 100644 R/zzz.R diff --git a/R/multi_scale.R b/R/multi_scale.R index d34a388..8a66297 100644 --- a/R/multi_scale.R +++ b/R/multi_scale.R @@ -477,7 +477,6 @@ ww_multi_scale.sf <- function( out$.grid <- list(.grid) out$.notes <- list(notes_tibble) out - } ) @@ -491,7 +490,6 @@ ww_multi_scale.sf <- function( } out - } handle_metrics <- function(metrics) { diff --git a/R/zzz.R b/R/zzz.R new file mode 100644 index 0000000..c93c160 --- /dev/null +++ b/R/zzz.R @@ -0,0 +1,7 @@ +release_bullets <- function() { + c( + "`cffr::cff_write()`", + "`codemetar::write_codemeta()`", + "`styler::style_pkg()`" + ) +} diff --git a/tests/testthat/test-multi_scale.R b/tests/testthat/test-multi_scale.R index 4af4a73..4ab3e4c 100644 --- a/tests/testthat/test-multi_scale.R +++ b/tests/testthat/test-multi_scale.R @@ -433,7 +433,6 @@ test_that("raster method works", { )$.estimate, 1 ) - }) test_that("raster method is equivalent", { @@ -569,7 +568,6 @@ test_that("units are handled properly", { vapply(ww_output$.grid, nrow, integer(1)), vapply(cellsizes, function(cellsize) length(sf::st_make_grid(pts, cellsize, square = FALSE)), integer(1)) ) - }) test_that("counts of non-NA values are correct", {