From c7e5286f8b245981fc90130c2e758e2b52eb244c Mon Sep 17 00:00:00 2001
From: maksymis <32574056+maksymiuks@users.noreply.github.com>
Date: Mon, 20 Jan 2025 18:46:24 +0100
Subject: [PATCH] Add title to description

---
 R/rd2markdown.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/rd2markdown.R b/R/rd2markdown.R
index 0b14dd0..19b4281 100644
--- a/R/rd2markdown.R
+++ b/R/rd2markdown.R
@@ -161,7 +161,7 @@ rd2markdown.title <- function(x, fragments = c(), ...) {
 #'
 #' @exportS3Method
 #' @rdname rd2markdown
-rd2markdown.description <- function(x, fragments = c(), ..., title = NULL, level = 2L) {
+rd2markdown.description <- function(x, fragments = c(), ..., title = "Description", level = 2L) {
   out <- map_rd2markdown(x, ..., collapse = "", level = level + 1)
   out <- gsub("\n{1,}$", "", out)
   out <- gsub("\n*\\\\lifecycle\\{(.*)\\}\n*", "\n\nLifecycle: *\\1*\n\n", out)