data.io_lang -> SciViews_lang option + change to match svBase/svMisc refactoring

Author: phgrosjean

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: data.io
 Type: Package
-Version: 1.6.1
+Version: 1.7.0
 Title: 'SciViews::R' - Read and Write Data in Different Formats
 Description: Read or write data from many different formats (tabular datasets,
   from statistic software ...) into R objects. Add labels and units in
@@ -15,14 +15,12 @@ Depends:
 Imports:
     data.table (>= 1.15.4),
     data.trame (>= 0.9.0),
-    Hmisc (>= 5.0.1),
     lifecycle (>= 1.0.0),
     utils (>= 4.2.0),
     R.utils (>= 2.13.0),
-    svMisc (>= 1.5.0),
     readr (>= 2.1.4),
     rlang (>= 1.1.1),
-    svBase (>= 1.4.0),
+    svBase (>= 1.7.0),
     tibble (>= 3.2.1),
     tsibble (>= 1.1.3)
 Suggests: 

NAMESPACE

@@ -2,39 +2,16 @@
 
 S3method(.DollarNames,read_function_subset)
 S3method(.DollarNames,write_function_subset)
-S3method(as_dataframe,data.frame)
-S3method(as_dataframe,dataframe)
-S3method(as_dataframe,default)
-S3method(as_dataframe,list)
-S3method(as_dataframe,matrix)
-S3method(as_dataframe,table)
-S3method(labelise,data.frame)
-S3method(labelise,default)
-S3method(unlabelise,data.frame)
-S3method(unlabelise,default)
-export("label<-")
-export(as.dataframe)
-export(as_dataframe)
-export(cl)
 export(data_example)
 export(data_types)
 export(hread_text)
 export(hread_xls)
 export(hread_xlsx)
-export(is.dataframe)
-export(is_dataframe)
-export(label)
-export(labelise)
-export(labelize)
 export(read)
 export(read_write_option)
 export(relative_path)
 export(type_from_extension)
-export(unlabelise)
-export(unlabelize)
 export(write)
-importFrom(Hmisc,"label<-")
-importFrom(Hmisc,label)
 importFrom(R.utils,gunzip)
 importFrom(data.table,fread)
 importFrom(data.table,fwrite)
@@ -47,8 +24,15 @@ importFrom(lifecycle,deprecated)
 importFrom(readr,default_locale)
 importFrom(readr,read_lines)
 importFrom(rlang,quos)
+importFrom(svBase,"label<-")
+importFrom(svBase,aka)
+importFrom(svBase,cl)
 importFrom(svBase,default_dtx)
-importFrom(svMisc,aka)
+importFrom(svBase,label)
+importFrom(svBase,labelise)
+importFrom(svBase,labelize)
+importFrom(svBase,unlabelise)
+importFrom(svBase,unlabelize)
 importFrom(tibble,add_column)
 importFrom(tibble,as_tibble)
 importFrom(tibble,is_tibble)

NEWS.md

@@ -1,3 +1,7 @@
+# data.io 1.7.0
+
+-   Functions `labelise()`/`labelize()`, `cl()`, `unlabelise()`/`unlabelize()`, `label()` and `label<-()` are moved from here to svBase.
+
 # data.io 1.6.1
 
 -   The `$.subsettable_type()` method is now in {svMisc}.

R/as_dataframe.R

@@ -102,8 +102,8 @@
 #' library(ggplot2)
 #' ggplot(urchin_growth, aes(age, diameter)) +
 #'   geom_jitter(alpha = 0.2) +
-#'   xlab(label(urchin_growth$age, units = TRUE)) +
-#'   ylab(label(urchin_growth$diameter, units = TRUE)) +
+#'   xlab(svBase::label(urchin_growth$age, units = TRUE)) +
+#'   ylab(svBase::label(urchin_growth$diameter, units = TRUE)) +
 #'   ggtitle("Growth of a cohort of sea urchins")
 "urchin_growth"
 

R/data.R

@@ -14,9 +14,6 @@
 #'   with [base::write()] but provides many more features if you indicate
 #'   `type=` or use it like `write$type()`.
 #'
-#' - [labelise()] adds a `label`, and possibly a `units` attributes to an
-#'   object, to be used while pretty printing a table or plot.
-#'
 
 # The following block is used by usethis to automatically manage
 # roxygen namespace tags. Modify with care!
@@ -27,7 +24,7 @@
 #' @importFrom R.utils gunzip
 #' @importFrom readr default_locale read_lines
 #' @importFrom rlang quos
-#' @importFrom svMisc aka
+#' @importFrom svBase aka labelise labelize cl unlabelise unlabelize label label<-
 #' @importFrom svBase default_dtx
 #' @importFrom tibble tibble tribble as_tibble is_tibble add_column
 #' @importFrom tsibble as_tsibble

R/internal.R R/data.io-internal.RR/internal.R renamed to R/data.io-internal.R

@@ -45,7 +45,7 @@ data_types <- function(types_only = FALSE, view = TRUE) {
     # defines another version of that function, and we ant to use it instead!
     view <- get0("View", mode = "function")
     if (is.null(view)) {
-      warning("'View' function not found, return the data instead")
+      warning("'View()' function not found, return the data instead")
       `data types`
     } else {
       view(`data types`)