Revert "refactor: move ames housing to mlr3 (#20)"

This reverts commit 9b7e8c2.

Author: be-marc

DESCRIPTION

@@ -31,4 +31,4 @@ LazyData: true
 LazyDataCompression: xz
 NeedsCompilation: no
 Roxygen: list(markdown = TRUE)
-RoxygenNote: 7.3.2
+RoxygenNote: 7.2.3

NEWS.md

@@ -1,9 +1,12 @@
+<<<<<<< HEAD
 # mlr3data (development version)
 
 # mlr3data 0.8.0
 
 * Move  `ames_housing` to mlr3.
 
+=======
+>>>>>>> parent of 9b7e8c2 (refactor: move ames housing to mlr3 (#20))
 # mlr3data 0.7.0
 
 * Added dataset `ames_housing`, used in the book about mlr3.

R/ames_housing.R

@@ -0,0 +1,24 @@
+#' @title House Sales in Ames, Iowa
+#'
+#' @name ames_housing
+#' @aliases mlr_tasks_ames_housing
+#'
+#' @description
+#' Regression task to predict house sale prices for Ames, Iowa.
+#'
+#' Contains 80 features and 2930 observations.
+#' Target column is `"Sale_Price"`.
+#'
+#' @docType data
+#' @keywords data
+#' @examples
+#' data("ames_housing", package = "mlr3data")
+#' str(ames_housing)
+NULL
+
+get_ames_housing_task = function() {
+  b = as_backend("ames_housing")
+  task = mlr3::TaskRegr$new("ames_housing", b, target = "Sale_Price", label = "Ames House Sales")
+  b$hash = task$man = "mlr3data::mlr_tasks_ames_housing"
+  task
+}

R/zzz.R

@@ -4,6 +4,7 @@
 register_tasks = function() {
   x = getFromNamespace("mlr_tasks", ns = "mlr3")
 
+  x$add("ames_housing", get_ames_housing_task)
   x$add("bike_sharing", get_bike_sharing_task)
   x$add("ilpd", get_ilpd_task)
   x$add("kc_housing", get_kc_housing_task)

data-raw/ames_housing.R

@@ -0,0 +1,6 @@
+requireNamespace("rprojroot")
+requireNamespace("data.table")
+root = rprojroot::find_package_root_file()
+
+ames_housing = data.table::fread(file.path(root, "data-raw", "ames_housing.csv.bz2"), stringsAsFactors = TRUE)
+usethis::use_data(ames_housing, overwrite = TRUE, compress = "xz")