Comment

coatless · coatless · commit f172cfd5000c · 2024-07-22T16:42:19.000-07:00
diff --git a/R/list-available-datasets.R b/R/list-available-datasets.R
@@ -88,9 +88,9 @@ list_available_datasets <- function(filter, search, area) {
   attr(table_of_data, 'search') <- if(!missing(search)) search else NULL
   attr(table_of_data, 'area') <-  if(!missing(area)) area else NULL
 
+  # Add class to the data frame to allow for customized print
   class(table_of_data) <- c('ucimlrepo_list_of_available_datasets', 'data.frame')
 
-  # Print the table of data
   return(table_of_data)
 }
 

Original file line number	Diff line number	Diff line change
`@@ -88,9 +88,9 @@ list_available_datasets <- function(filter, search, area) {`
`88`	`88`	`attr(table_of_data, 'search') <- if(!missing(search)) search else NULL`
`89`	`89`	`attr(table_of_data, 'area') <- if(!missing(area)) area else NULL`
`90`	`90`
	`91`	`+ # Add class to the data frame to allow for customized print`
`91`	`92`	`class(table_of_data) <- c('ucimlrepo_list_of_available_datasets', 'data.frame')`
`92`	`93`
`93`		`- # Print the table of data`
`94`	`94`	`return(table_of_data)`
`95`	`95`	`}`
`96`	`96`