retain ods_sheets for now, because readtext needs that

Author: chainsawriot

NAMESPACE

@@ -3,6 +3,7 @@
 export(getNrOfSheetsInODS)
 export(get_num_sheets_in_ods)
 export(list_ods_sheets)
+export(ods_sheets)
 export(read.ods)
 export(read_ods)
 export(write_ods)

R/readODS.R

@@ -309,3 +309,10 @@ list_ods_sheets <- function(path) {
     res <- .parse_ods_to_sheets(path)
     return(sapply(res[[1]], function(x) xml2::xml_attr(x, "table:name", res[[2]])))
 }
+
+#' @rdname list_ods_sheets
+#' @export
+ods_sheets <- function(path) {
+    warning("ods_sheets will be depreciated in the next version. Use list_ods_sheets instead.")
+    list_ods_sheets(path)
+}

man/list_ods_sheets.Rd

@@ -12,6 +12,11 @@ s_read.ods <- function(...) {
     })
 }
 
+test_that("ods_sheets", {
+    file="../testdata/test.ods"
+    expect_warning(ods_sheets(file))
+})
+
 test_that("getNrOfSheetsInODS", {
     file="../testdata/test.ods"
     expect_warning(getNrOfSheetsInODS(file))