use interactive()

Author: trangdata

NEWS.md

@@ -1,8 +1,6 @@
 # pmlbr 0.2.2
 * File download fail gracefully if no internet connection is available
 
-# pmlbr 0.2.1
-
 # pmlbr 0.2.1
 * Added -package alias
 

R/nearest.R

@@ -22,9 +22,10 @@
 #' @export
 #'
 #' @examples
-#' nearest_datasets('penguins')
-#' nearest_datasets(fetch_data('penguins'))
-#'
+#' if (interactive()){
+#'   nearest_datasets('penguins')
+#'   nearest_datasets(fetch_data('penguins'))
+#' }
 nearest_datasets <- function(x, ...){
   UseMethod('nearest_datasets', x)
 }

R/pmlb.R

@@ -13,13 +13,16 @@
 #' @export
 #' @examples
 #' # Features and labels in single data frame
-#' penguins <- fetch_data("penguins")
-#' head(penguins)
+#' if (interactive()){
+#'   penguins <- fetch_data("penguins")
+#'   head(penguins)
+#'
+#'   # Features and labels stored in separate data structures
+#'   penguins <- fetch_data("penguins", return_X_y = TRUE)
+#'   penguins$x # data frame
+#'   penguins$y # vector
+#' }
 #'
-#' # Features and labels stored in separate data structures
-#' penguins <- fetch_data("penguins", return_X_y = TRUE)
-#' penguins$x # data frame
-#' penguins$y # vector
 fetch_data <- function(dataset_name, return_X_y = FALSE, local_cache_dir = NA, dropna = TRUE) {
   GITHUB_URL <- "https://github.com/EpistasisLab/pmlb/raw/master/datasets"
   SUFFIX <- ".tsv.gz"