retain ods_sheets for now, because readtext needs that

ropensci · Jul 10, 2020 · 1282a9c · 1282a9c
1 parent 22e80e5
commit 1282a9c
Show file tree

Hide file tree

Showing 4 changed files with 16 additions and 0 deletions.
diff --git a/NAMESPACE b/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)
diff --git a/R/readODS.R b/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)
+}
diff --git a/man/list_ods_sheets.Rd b/man/list_ods_sheets.Rd
diff --git a/tests/testthat/test_legacy.R b/tests/testthat/test_legacy.R
@@ -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))