From 5a721ba423fff3cf1fc274d1d0711bd9d929f02d Mon Sep 17 00:00:00 2001
From: Jan Marvin Garbuszus <jan.garbuszus@ruhr-uni-bochum.de>
Date: Mon, 2 Oct 2023 18:41:53 +0200
Subject: [PATCH] fix wrapper

---
 R/class-workbook-wrappers.R | 5 +++--
 man/wb_clone_worksheet.Rd   | 4 +++-
 2 files changed, 6 insertions(+), 3 deletions(-)

diff --git a/R/class-workbook-wrappers.R b/R/class-workbook-wrappers.R
index 9e799b568..25ecadc7b 100644
--- a/R/class-workbook-wrappers.R
+++ b/R/class-workbook-wrappers.R
@@ -737,6 +737,7 @@ wb_add_worksheet <- function(
 #' @param wb A `wbWorkbook` object
 #' @param old Name of existing worksheet to copy
 #' @param new Name of the new worksheet to create
+#' @param from (optional) Workbook to clone old from
 #' @return The `wbWorkbook` object, invisibly.
 #'
 #' @export
@@ -751,9 +752,9 @@ wb_add_worksheet <- function(
 #' wb$clone_worksheet("Sheet 1", new = "Sheet 2")
 #' # Take advantage of waiver functions
 #' wb$clone_worksheet(old = "Sheet 1")
-wb_clone_worksheet <- function(wb, old = current_sheet(), new = next_sheet()) {
+wb_clone_worksheet <- function(wb, old = current_sheet(), new = next_sheet(), from = NULL) {
   assert_workbook(wb)
-  wb$clone()$clone_worksheet(old = old, new = new)
+  wb$clone()$clone_worksheet(old = old, new = new, from = from)
 }
 
 # worksheets --------------------------------------------------------------
diff --git a/man/wb_clone_worksheet.Rd b/man/wb_clone_worksheet.Rd
index b7f347227..897d3fc28 100644
--- a/man/wb_clone_worksheet.Rd
+++ b/man/wb_clone_worksheet.Rd
@@ -4,7 +4,7 @@
 \alias{wb_clone_worksheet}
 \title{Create copies of a worksheet within a workbook}
 \usage{
-wb_clone_worksheet(wb, old = current_sheet(), new = next_sheet())
+wb_clone_worksheet(wb, old = current_sheet(), new = next_sheet(), from = NULL)
 }
 \arguments{
 \item{wb}{A \code{wbWorkbook} object}
@@ -12,6 +12,8 @@ wb_clone_worksheet(wb, old = current_sheet(), new = next_sheet())
 \item{old}{Name of existing worksheet to copy}
 
 \item{new}{Name of the new worksheet to create}
+
+\item{from}{(optional) Workbook to clone old from}
 }
 \value{
 The \code{wbWorkbook} object, invisibly.