Update documentation

Author: maksymiuks

.Rbuildignore

@@ -21,3 +21,4 @@ cran-comments.md
 Report.html
 Report.Rmd
 
+^CRAN-SUBMISSION$

.gitignore

@@ -8,3 +8,4 @@ Report.Rmd
 cran-comments.md
 CRAN-RELEASE
 docs
+^CRAN-SUBMISSION$

NAMESPACE

@@ -1,5 +1,9 @@
 # Generated by roxygen2: do not edit by hand
 
+S3method(generate_chunk,default)
+S3method(generate_chunk,funnel_measure)
+S3method(generate_chunk,overall_comparison)
+S3method(generate_chunk,training_test_comparison)
 S3method(model_info,GraphLearner)
 S3method(model_info,H2OBinomialModel)
 S3method(model_info,H2OMultinomialModel)

R/explain_xgboost.R

@@ -14,6 +14,7 @@
 #'
 #'
 #' @examples
+#' \donttest{
 #' library("xgboost")
 #' library("DALEXtra")
 #' library("mlr")
@@ -26,6 +27,7 @@
 #' explainer_1 <- explain_xgboost(model, data = titanic_imputed[,-8],
 #'                                titanic_imputed$survived)
 #' plot(predict_parts(explainer_1, titanic_imputed[1,-8]))
+#' }
 #'
 #' @rdname explain_xgboost
 #' @export

R/generate_chunk.R

@@ -3,6 +3,7 @@
 generate_chunk <- function(object, output_path, iterator, name)
   UseMethod("generate_chunk")
 
+#' @export
 generate_chunk.overall_comparison <- function(object, output_path, iterator, name) {
   con_overall_comparison <- file(system.file("ChampionChallenger", "overall_comparison_section.Rmd", package = "DALEXtra"))
   lines_overall_comparison <- readLines(con_overall_comparison)
@@ -20,6 +21,7 @@ generate_chunk.overall_comparison <- function(object, output_path, iterator, nam
         append = TRUE)
 }
 
+#' @export
 generate_chunk.training_test_comparison <- function(object, output_path, iterator, name) {
   con_training_test_comparison <- file(system.file("ChampionChallenger", "training_test_comparison_section.Rmd", package = "DALEXtra"))
   lines_training_test_comparison <- readLines(con_training_test_comparison)
@@ -37,6 +39,7 @@ generate_chunk.training_test_comparison <- function(object, output_path, iterato
         append = TRUE)
 }
 
+#' @export
 generate_chunk.funnel_measure <- function(object, output_path, iterator, name) {
   con_funnel_measure <- file(system.file("ChampionChallenger", "funnel_measure_section.Rmd", package = "DALEXtra"))
   lines_funnel_measure <- readLines(con_funnel_measure)
@@ -55,6 +58,7 @@ generate_chunk.funnel_measure <- function(object, output_path, iterator, name) {
 
 }
 
+#' @export
 generate_chunk.default <- function(object, output_path, iterator, name) {
   if(is.null(name) | name == "") {
     name <- class(object)[1]