Many small fixes for new R release

Author: gdemin

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: excel.link
 Type: Package
 Title: Convenient Data Exchange with Microsoft Excel
-Version: 0.9.11
+Version: 0.9.12
 Author: Gregory Demin <excel.link.feedback@gmail.com>. To comply CRAN policy
     includes source code from 'RDCOMClient' (http://www.omegahat.net/RDCOMClient/) by
     Duncan Temple Lang <duncan@wald.ucdavis.edu>.
@@ -30,4 +30,4 @@ BugReports: https://github.com/gdemin/excel.link/issues
 LazyLoad: yes
 ByteCompile: TRUE
 NeedsCompilation: yes
-RoxygenNote: 7.2.3
+RoxygenNote: 7.3.0

NAMESPACE

@@ -23,7 +23,15 @@ S3method(fix_encoding,data.frame)
 S3method(fix_encoding,default)
 S3method(fix_encoding,list)
 S3method(fix_encoding,matrix)
+S3method(has.colnames,default)
+S3method(has.colnames,excel.range)
+S3method(has.rownames,default)
+S3method(has.rownames,excel.range)
 S3method(sort,excel.range)
+S3method(xl.raw.write,POSIXct)
+S3method(xl.raw.write,POSIXlt)
+S3method(xl.raw.write,default)
+S3method(xl.raw.write,matrix)
 S3method(xl.sheet.exists,character)
 S3method(xl.sheet.exists,numeric)
 S3method(xl.write,current.graphics)

NEWS

@@ -1,3 +1,7 @@
+0.9.12 (16.01.2024)
+===============
+* minor fix
+
 0.9.11 (05.05.2023)
 ===============
 * update for R4.3

R/dimnames.excel.range.R

@@ -105,6 +105,7 @@ has.rownames = function(x){
     UseMethod("has.rownames")
 }
 
+#' @export
 has.colnames.default = function(x)
     # get attribute has.colnames
 {
@@ -113,6 +114,7 @@ has.colnames.default = function(x)
     res
 }
 
+#' @export
 has.rownames.default = function(x)
     # get attribute has.rownames
 {
@@ -135,6 +137,7 @@ has.rownames.default = function(x)
     x
 }
 
+#' @export
 has.colnames.excel.range = function(x)
     # get attribute has.colnames
 {
@@ -143,7 +146,7 @@ has.colnames.excel.range = function(x)
     res
 }
 
-
+#' @export
 has.rownames.excel.range = function(x)
     # get attribute has.rownames
 {

R/excel.link.R

@@ -33,20 +33,17 @@
 #'   \code{xlc[a1] = iris}. After that we connect Excel range with R object:
 #'   \code{xl_iris = xl.connect.table("a1",row.names = FALSE, col.names =
 #'   TRUE)}. So we can: 
-#'   \itemize{ \item{get data from this Excel range:}{
-#'   \code{xl_iris$Species}} 
-#'   \item{add new data to this Excel range: }{
-#'   \code{xl_iris$new_column = 42}} 
-#'   \item{sort this range: }{
-#'   \code{sort(xl_iris,column = "Sepal.Length")}} 
-#'   \item{and more...} }
+#'   \itemize{ 
+#'   \item get data from this Excel range: \code{xl_iris$Species} 
+#'   \item add new data to this Excel range: \code{xl_iris$new_column = 42} 
+#'   \item sort this range: \code{sort(xl_iris,column = "Sepal.Length")} 
+#'   \item and more...
+#'   }
 #'   Live connection is faster than active binding to range but is less universal 
 #'   (for example, you can't use \code{within} statement with it).
 #' @seealso \code{\link{xl}}, \code{\link{current.graphics}},
 #'   \code{\link{xl.connect.table}}
-#' @docType package
-#' @name excel.link
-NULL
+"_PACKAGE"
 
 
 #' @useDynLib "excel.link",.registration = TRUE

R/xl.connect.table.R

@@ -32,12 +32,14 @@
 #'   the corresponding extent. Indices can also be negative integers, indicating
 #'   elements/slices to leave out of the selection.
 #'   
-#' @return \itemize{ \item{\code{xl.connect.table}}{ returns object of 
+#' @return \itemize{ 
+#' \item \code{xl.connect.table} returns object of 
 #'   \code{excel.range} class which represent data on Excel sheet. This object
 #'   can be treated similar to data.frame. So you can assign values, delete 
-#'   columns/rows and so on. For more information see examples.} 
-#'   \item{\code{sort}}{ sorts Excel range by single column (multiple columns 
-#'   currently not supported) and invisibly return NULL. }}
+#'   columns/rows and so on. For more information see examples. 
+#' \item \code{sort} sorts Excel range by single column (multiple columns 
+#'   currently not supported) and invisibly return NULL. 
+#'   }
 #' @examples
 #' 
 #' 

R/xl.sheet.add.R

@@ -7,28 +7,28 @@
 #'   workbook
 #'   
 #' @details \itemize{ 
-#' \item{\code{xl.sheet.add}}{ adds new sheet with given name and invisibly 
+#' \item \code{xl.sheet.add} adds new sheet with given name and invisibly 
 #' returns name of this newly added sheet. Added sheet become active. If 
 #' \code{xl.sheet.name} is missing default name will be used. If \code{before}
 #' argument is missing, sheet will be added at the last position. If sheet with
-#' given name already exists error will be generated.}
-#' \item{\code{xl.sheet.name}}{ rename active sheet. If its argument is missing
-#' then it just return active sheet name.}
-#' \item{\code{xl.sheet.hide}/\code{xl.sheet.show}}{ hide and show sheet by its
+#' given name already exists error will be generated.
+#' \item \code{xl.sheet.name} rename active sheet. If its argument is missing
+#' then it just return active sheet name.
+#' \item \code{xl.sheet.hide}/\code{xl.sheet.show} hide and show sheet by its
 #' name. \code{xl.sheet.visible} returns current visibility status of the
-#' sheet.}
-#' \item{\code{xl.sheet.activate}}{ activates sheet with given name/number. If 
-#' sheet with this name doesn't exist error will be generated.}
-#' \item{\code{xl.sheet.delete}}{ deletes sheet with given
-#' name/number. If name doesn't submitted it delete active sheet.}
+#' sheet.
+#' \item \code{xl.sheet.activate} activates sheet with given name/number. If 
+#' sheet with this name doesn't exist error will be generated.
+#' \item \code{xl.sheet.delete} deletes sheet with given
+#' name/number. If name doesn't submitted it delete active sheet.
 #' }
 #' 
 #' @return
 #' \itemize{
-#' \item{\code{xl.sheet.add}/\code{xl.sheet.activate}/\code{xl.sheet.duplicate}}{
-#' invisibly return name of created/activated/duplicated sheet.}
-#' \item{\code{xl.sheets}}{ returns vector of sheet names in active workbook.}
-#' \item{\code{xl.sheet.delete}}{ invisibly returns NULL.}
+#' \item \code{xl.sheet.add}/\code{xl.sheet.activate}/\code{xl.sheet.duplicate}
+#' invisibly return name of created/activated/duplicated sheet.
+#' \item \code{xl.sheets} returns vector of sheet names in active workbook.
+#' \item \code{xl.sheet.delete} invisibly returns NULL.
 #' }
 #' 
 #' @seealso

R/xl.workbooks.R

@@ -12,26 +12,29 @@
 #'   by default.
 #'   
 #' @return \itemize{ 
-#' \item{\code{xl.workbook.add}/\code{xl.workbook.open}/\code{xl.workbook.activate}
-#' }{ invisibly return name of created/open/activated workbook.} 
-#' \item{\code{xl.workbooks}}{ returns character vector of open workbooks.} 
-#' \item{\code{xl.workbook.save}}{ invisibly returns path to the saved workbook}
-#' \item{\code{xl.workbook.close}}{ invisibly returns NULL.} }
-#' @details \itemize{ \item{\code{xl.workbook.add}}{ adds new workbook and
+#' \item \code{xl.workbook.add}/\code{xl.workbook.open}/\code{xl.workbook.activate}
+#'  invisibly return name of created/open/activated workbook. 
+#' \item \code{xl.workbooks} returns character vector of open workbooks. 
+#' \item \code{xl.workbook.save} invisibly returns path to the saved workbook.
+#' \item \code{xl.workbook.close} invisibly returns NULL.
+#'  }
+#' @details \itemize{ 
+#' \item \code{xl.workbook.add} adds new workbook and
 #' invisibly returns name of this newly created workbook. Added workbook become
 #' active. If \code{filename} argument is provided then Excel workbook
-#' \code{filename} will be used as template.} 
-#' \item{\code{xl.workbook.activate}}{ activates workbook with given name. If
-#' workbook with this name doesn't exist error will be generated.} 
-#' \item{\code{xl.workbook.save}}{ saves active workbook. If only
+#' \code{filename} will be used as template. 
+#' \item \code{xl.workbook.activate} activates workbook with given name. If
+#' workbook with this name doesn't exist error will be generated. 
+#' \item \code{xl.workbook.save} saves active workbook. If only
 #' \code{filename} submitted it saves in the working directory. If name of
 #' workbook is omitted than new workbook is saved under its default name in the
 #' current working directory. It doesn't prompt about overwriting if file
-#' already exists.} \item{\code{xl.workbook.close}}{ closes workbook with given
+#' already exists.
+#' \item \code{xl.workbook.close} closes workbook with given
 #' name. If name isn't submitted it closed active workbook.  It doesn't prompt
 #' about saving so if you don't save changes before closing all changes will be
-#' lost.} }
-#' 
+#' lost. 
+#' }
 #' @seealso \code{\link{xl.sheets}}, \code{\link{xl.read.file}}, 
 #'   \code{\link{xl.save.file}}
 #' @examples

R/xl.write.R

@@ -370,7 +370,7 @@ xl.raw.write = function(r.obj,xl.rng,na = ""){
 }
 
 
-
+#' @export
 xl.raw.write.default = function(r.obj,xl.rng,na = "")
     ### writes vectors (one-dimensional objects)
 {
@@ -395,14 +395,17 @@ xl.raw.write.default = function(r.obj,xl.rng,na = "")
     invisible(c(length(r.obj),1))
 }
 
+#' @export
 xl.raw.write.POSIXct = function(r.obj,xl.rng,na = ""){
     xl.raw.write(format(r.obj, usetz = FALSE),xl.rng,na)
 }
 
+#' @export
 xl.raw.write.POSIXlt = function(r.obj,xl.rng,na = ""){
     xl.raw.write(format(r.obj, usetz = FALSE),xl.rng,na)
 }
 
+#' @export
 xl.raw.write.matrix = function(r.obj,xl.rng,na = "")
     ### insert matrix into excel sheet without column and row names
 {