oops

Yue-Jiang · Yue-Jiang · commit 3bc7b3918c9d · 2019-10-25T21:29:02.000-07:00
diff --git a/R/explain_forest.R b/R/explain_forest.R
@@ -26,7 +26,7 @@ explain_forest <- function(forest, path = NULL, interactions = FALSE, data = NUL
                            measures = NULL){
   if(is.null(path)) {
     directory <- getwd()
-    paste0(directory, "/Your_forest_explained.html")
+    path <- paste0(directory, "/Your_forest_explained.html")
   }
   if(is.null(measures)){
     if("randomForest" %in% class(forest)){

Original file line number	Diff line number	Diff line change
`@@ -26,7 +26,7 @@ explain_forest <- function(forest, path = NULL, interactions = FALSE, data = NUL`
`26`	`26`	`measures = NULL){`
`27`	`27`	`if(is.null(path)) {`
`28`	`28`	`directory <- getwd()`
`29`		`- paste0(directory, "/Your_forest_explained.html")`
	`29`	`+ path <- paste0(directory, "/Your_forest_explained.html")`
`30`	`30`	`}`
`31`	`31`	`if(is.null(measures)){`
`32`	`32`	`if("randomForest" %in% class(forest)){`