diff --git a/h2o-bindings/bin/custom/R/gen_pipeline.py b/h2o-bindings/bin/custom/R/gen_pipeline.py
index ebcb0666c683..e9c92adf87ce 100644
--- a/h2o-bindings/bin/custom/R/gen_pipeline.py
+++ b/h2o-bindings/bin/custom/R/gen_pipeline.py
@@ -17,3 +17,12 @@
 }
 """
 )
+
+doc = dict(
+    preamble="""
+Build a pipeline model given a list of transformers and a final model.
+
+Currently R model pipelines, as produced by AutoML for example, 
+are only available as read-only models that can not be constructed and trained directly by the end-user.  
+""",
+)
diff --git a/h2o-r/h2o-package/R/pipeline.R b/h2o-r/h2o-package/R/pipeline.R
index e5937a0a3349..f2e06263b5ea 100644
--- a/h2o-r/h2o-package/R/pipeline.R
+++ b/h2o-r/h2o-package/R/pipeline.R
@@ -3,6 +3,11 @@
 #'
 # -------------------------- pipeline -------------------------- #
 #'
+#' Build a pipeline model given a list of transformers and a final model.
+#' 
+#' Currently R model pipelines, as produced by AutoML for example, 
+#' are only available as read-only models that can not be constructed and trained directly by the end-user.  
+#'
 #' @param model_id Destination id for this model; auto-generated if not specified.
 #' @export
 h2o.pipeline <- function(model_id = NULL)
diff --git a/h2o-r/tests/testdir_misc/runit_connect.R b/h2o-r/tests/testdir_misc/runit_connect.R
index 46495aa5b4dd..2e76ed275a72 100644
--- a/h2o-r/tests/testdir_misc/runit_connect.R
+++ b/h2o-r/tests/testdir_misc/runit_connect.R
@@ -8,7 +8,7 @@ to_src <- c("aggregator.R", "classes.R", "connection.R","config.R", "constants.R
             "coxph.R", "coxphutils.R", "gbm.R", "glm.R", "gam.R", "glrm.R", "kmeans.R", "deeplearning.R", "randomforest.R", "generic.R",
             "naivebayes.R", "pca.R", "svd.R", "locate.R", "grid.R", "word2vec.R", "w2vutils.R", "stackedensemble.R", "rulefit.R",
             "predict.R", "xgboost.R", "isolationforest.R", "psvm.R", "segment.R", "tf-idf.R", "explain.R", "permutation_varimp.R", 
-            "extendedisolationforest.R", "upliftrandomforest.R")
+            "extendedisolationforest.R", "upliftrandomforest.R", "pipeline.R")
 src_path <- paste(h2oRDir,"h2o-package","R",sep=.Platform$file.sep)
 invisible(lapply(to_src,function(x){source(paste(src_path, x, sep = .Platform$file.sep))}))