Make some function "internal"

Author: juliasilge

R/data.R

@@ -7,7 +7,7 @@
 #' @aliases model_db
 #' @docType data
 #' @return \item{model_db}{a data frame}
-#' @keywords datasets
+#' @keywords datasets internal
 #' @examples
 #' data(model_db)
 NULL

R/nullmodel.R

@@ -31,7 +31,7 @@
 #'
 #' `predict.nullmodel()` returns either a factor or numeric vector
 #' depending on the class of \code{y}. All predictions are always the same.
-#' @keywords models
+#' @keywords models internal
 #' @examples
 #'
 #' outcome <- factor(sample(letters[1:2],
@@ -181,6 +181,7 @@ null_model <-
 #' @param ... Not used.
 #' @return A tibble with column `value`.
 #' @export
+#' @keywords internal
 #' @examples
 #'
 #' nullmodel(mtcars[,-1], mtcars$mpg) %>% tidy()

R/tidy_glmnet.R

@@ -9,6 +9,7 @@
 #' @return A tibble with columns `term`, `estimate`, and `penalty`. When a
 #' multinomial mode is used, an additional `class` column is included.
 #' @importFrom stats coef
+#' @keywords internal
 #' @export
 tidy._elnet <- function(x, penalty = NULL, ...) {
   tidy_glmnet(x, penalty)