Infra updates

Author: coatless

NAMESPACE

@@ -1,4 +1,5 @@
 # Generated by roxygen2: do not edit by hand
 
+S3method(print,ucimlrepo_list_of_available_datasets)
 export(fetch_ucirepo)
 export(list_available_datasets)

tests/testthat/test-list-available-datasets.R

@@ -13,8 +13,10 @@ test_that("list_available_datasets(): graceful errors", {
 test_that("list_available_datasets(): search", {
   skip_on_cran()
 
+  df <- list_available_datasets(area = 'climate and environment')
+
   # Check that the function outputs text
-  expect_output(df <- list_available_datasets(area = 'climate and environment'))
+  expect_output(print(df))
 
   # Check dataframe is present
   expect_s3_class(df, 'data.frame')
@@ -23,10 +25,10 @@ test_that("list_available_datasets(): search", {
   expect_equal(names(df), c('id', 'name', 'url'))
 
   # Check that the function outputs text when filter and area are set
-  expect_output(list_available_datasets(filter = 'python', area = 'climate and environment'))
+  expect_output(print(list_available_datasets(filter = 'python', area = 'climate and environment')))
 
   # Check that the function outputs text when search and area are set
-  expect_output(list_available_datasets(search = 'nino', area = 'climate and environment'))
+  expect_output(print(list_available_datasets(search = 'nino', area = 'climate and environment')))
 
 })