Remove unnecessary sprintf() from format.epidist()

Co-authored-by: Hugo Gruson <10783929+Bisaloo@users.noreply.github.com>
epiverse-trace · Jul 9, 2024 · 1275ce1 · 1275ce1
1 parent 1902b92
commit 1275ce1
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/epidist.R b/R/epidist.R
@@ -438,7 +438,7 @@ format.epidist <- function(x, header = TRUE, vb = NULL, ...) {
     )
     writeLines(sprintf(dist_string, family(x)))
   } else {
-    writeLines(sprintf("Parameters: <no parameters>"))
+    writeLines("Parameters: <no parameters>")
   }
 
   if (is.object(x$prob_dist)) {