make functions and classes internal

NAMESPACE

@@ -30,9 +30,6 @@ export(delete_data)
 export(dims_to_dataframe)
 export(dims_to_rowcol)
 export(fmt_txt)
-export(get_cell_refs)
-export(get_date_origin)
-export(guess_col_type)
 export(int2col)
 export(na_strings)
 export(next_sheet)
@@ -45,11 +42,7 @@ export(style_mgr)
 export(styles_on_sheet)
 export(temp_xlsx)
 export(wbChartSheet)
-export(wbComment)
-export(wbHyperlink)
-export(wbSheetData)
 export(wbWorkbook)
-export(wbWorksheet)
 export(wb_add_border)
 export(wb_add_cell_style)
 export(wb_add_chart_xml)
@@ -130,7 +123,6 @@ export(wb_set_selected)
 export(wb_set_sheet_names)
 export(wb_set_sheet_visibility)
 export(wb_set_sheetview)
-export(wb_sheet_data)
 export(wb_to_df)
 export(wb_ungroup_cols)
 export(wb_ungroup_rows)
@@ -141,7 +133,6 @@ export(wb_ws)
 export(write_comment)
 export(write_data)
 export(write_datatable)
-export(write_file)
 export(write_formula)
 export(write_xlsx)
 export(xl_open)

NEWS.md

@@ -7,6 +7,7 @@
 ## Breaking changes
 
 * Order of arguments in `wb_add_named_region()` changed, because previously overlooked `dims` argument was added.
+* In various functions the order of `dims` was changed, to highlight it's importance
 
 * Cleanups
   * remove deprecated functions
@@ -18,6 +19,9 @@
   * deprecating function
     * `convertToExcelDate()` for `convert_to_excel_date()`
 
+  * make `get_cell_refs()`, `get_date_origin()`, `guess_col_type()`, and `write_file()` internal functions
+  * make classes `styles_mgr()`, `wbSheetData`, `wbWorksheet`, `wbChartsheet`, `wbComment`, `wbHyperlink` internal
+
 ***************************************************************************
 
 

R/class-comment.R

@@ -2,7 +2,8 @@
 #'
 #' A comment
 #'
-#' @export
+#' @keywords internal
+#' @noRd
 wbComment <- R6::R6Class(
   "wbComment",
 

R/class-hyperlink.R

@@ -2,7 +2,8 @@
 #'
 #' A hyperlink
 #'
-#' @export
+#' @keywords internal
+#' @noRd
 wbHyperlink <- R6::R6Class(
   "wbHyperlink",
 

R/class-sheet-data.R

@@ -3,7 +3,8 @@
 #'
 #' A hyperlink
 #'
-#' @export
+#' @keywords internal
+#' @noRd
 wbSheetData <- R6::R6Class(
   "wbSheetData",
   public = list(
@@ -30,7 +31,7 @@ wbSheetData <- R6::R6Class(
 ## TODO is this even used?
 #' @rdname wbSheetData
 #' @keywords internal
-#' @export
+#' @noRd
 wb_sheet_data <- function() {
   wbSheetData$new()
 }

R/class-style_mgr.R

@@ -65,7 +65,8 @@
 #' wb$set_cell_style("SUM", "C7:C16", wb$styles_mgr$get_xf_id("new_xf"))
 #' # wb_open(wb)
 #'
-#' @export
+#' @keywords internal
+#' @noRd
 style_mgr <- R6::R6Class("wbStylesMgr", {
 
   public <- list(

R/class-worksheet.R

@@ -5,7 +5,8 @@
 #'
 #' A Worksheet
 #'
-#' @export
+#' @keywords internal
+#' @noRd
 wbWorksheet <- R6::R6Class(
   "wbWorksheet",
 

R/converters.R

@@ -59,7 +59,8 @@ col2int <- function(x) {
 #' # "B1"
 #' get_cell_refs(data.frame(1:3, 2:4))
 #' # "B1" "C2" "D3"
-#' @export
+#' @keywords internal
+#' @noRd
 get_cell_refs <- function(cellCoords) {
   assert_class(cellCoords, "data.frame")
   stopifnot(ncol(cellCoords) == 2L)

R/dates.R

@@ -106,7 +106,8 @@ convert_hms <- function(x) {
 #'
 #' get_date_origin(wb_workbook())
 #' get_date_origin(wb_workbook(), origin = TRUE)
-#' @export
+#' @keywords internal
+#' @noRd
 get_date_origin <- function(xlsxFile, origin = FALSE) {
 
   # TODO: allow using a workbook?

R/pugixml.R

@@ -265,7 +265,8 @@ as_xml <- function(x, ...) {
 #' @param fl file name with full path
 #' @param escapes bool if characters like "&" should be escaped. The default is
 #' no escape, assuming that xml to export is already valid.
-#' @export
+#' @keywords internal
+#' @noRd
 # TODO needs a unit test
 write_file <- function(head = "", body = "", tail = "", fl = "", escapes = FALSE) {
   if (getOption("openxlsx2.force_utf8_encoding", default = FALSE)) {

R/wb_functions.R

@@ -83,7 +83,8 @@ dataframe_to_dims <- function(df) {
 #' function to estimate the column type.
 #' 0 = character, 1 = numeric, 2 = date.
 #' @param tt dataframe produced by wb_to_df()
-#' @export
+#' @keywords internal
+#' @noRd
 guess_col_type <- function(tt) {
 
   # all columns are character