diff --git a/R/class-comment.R b/R/class-comment.R
index 41235bc7f..9b23ee8dd 100644
--- a/R/class-comment.R
+++ b/R/class-comment.R
@@ -172,12 +172,11 @@ create_comment <- function(text,
 }
 
 #' Internal comment functions
-#' 
+#'
 #' Users are advised to use [wb_add_comment()] and [wb_remove_comment()]
 #' @name comment_internal
 NULL
 
-#' @name write_comment
 #' @rdname comment_internal
 #' @param wb A workbook object
 #' @param sheet A vector of names or indices of worksheets
@@ -341,8 +340,6 @@ write_comment <- function(
   invisible(wb)
 }
 
-
-#' @name remove_comment
 #' @rdname comment_internal
 #' @param gridExpand If `TRUE`, all data in rectangle min(rows):max(rows) X min(cols):max(cols)
 #' will be removed.
diff --git a/R/class-workbook.R b/R/class-workbook.R
index af7cabd54..0f282cd87 100644
--- a/R/class-workbook.R
+++ b/R/class-workbook.R
@@ -3594,7 +3594,7 @@ wbWorkbook <- R6::R6Class(
 
       rows <- ddims[[2]]
       cols <- ddims[[1]]
-      
+
       sheet <- private$get_sheet_index(sheet)
       self$worksheets[[sheet]]$unmerge_cells(
         rows   = rows,