Minor updates

Author: ndevln

.Rbuildignore

@@ -10,3 +10,4 @@
 ^data-raw$
 ^codecov\.yml$
 ^cran-comments.md
+^CRAN-SUBMISSION$

DESCRIPTION

@@ -1,16 +1,18 @@
 Package: ggsurveillance
-Title: Tools and Ggplot Extensions for Infectious Disease Surveillance and
-    Outbreak Investigation
+Title: Tools and 'ggplot2' Extensions for Infectious Disease Surveillance
+    and Outbreak Investigation
 Version: 0.1.0
 Authors@R: 
     person("Alexander", "Bartel", , "alexander.bartel@fu-berlin.de", role = c("aut", "cre"),
            comment = c(ORCID = "0000-0002-1280-6138"))
-Description: Create epicurves or epigantt charts in ggplot. Prepare data
-    for visualisation or other reporting for infectious disease
-    surveillance and outbreak investigation. Includes functions to solve date based transformations for common reporting tasks, like 
+Description: Create epicurves or epigantt charts in 'ggplot2'. Prepare
+    data for visualisation or other reporting for infectious disease
+    surveillance and outbreak investigation.  Includes functions to solve
+    date based transformations for common reporting tasks, like 
     (A) seasonal date alignment for respiratory disease surveillance, 
-    (B) date-based case binning based on specified time intervals like isoweek, epiweek, month and more, 
-    (C) automated detection and marking of the new year based on the date/datetime axis of the ggplot.
+    (B) date-based case binning based on specified time intervals like
+    isoweek, epiweek, month and more, (C) automated detection and marking
+    of the new year based on the date/datetime axis of the 'ggplot2'.
 License: GPL (>= 3)
 URL: https://ggsurveillance.biostats.dev,
     https://github.com/biostats-dev/ggsurveillance

R/geometric_mean.R

@@ -83,7 +83,7 @@ geometric_mean <- function(x, na.rm = FALSE, replace_value = NULL, replace = c("
   if (!is.null(replace_value)) {
     n_replaced <- sum(f_replace(x), na.rm = TRUE)
     x[f_replace(x)] <- as.numeric(replace_value)
-    cli::cli_warn("{n_replaced} value{?s} were substituted with {as.numeric(replace_value)}.")
+    if (n_replaced != 0) cli::cli_warn("{n_replaced} value{?s} were substituted with {as.numeric(replace_value)}.")
   }
 
   # Check if x is 0 or smaller