fix: merging issue with version

Merge branch 'main' of https://github.com/laresbernardo/lares # Conflicts: # DESCRIPTION
laresbernardo · Jul 16, 2024 · f955b1e · f955b1e
2 parents 0be64e2 + 035b3d1
commit f955b1e
Show file tree

Hide file tree

Showing 36 changed files with 66 additions and 55 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: lares
 Type: Package
 Title: Analytics & Machine Learning Sidekick
-Version: 5.2.8.9000
+Version: 5.2.7.9009
 Authors@R: c(
     person("Bernardo", "Lares", , "[email protected]", c("aut", "cre")))
 Maintainer: Bernardo Lares <[email protected]>
@@ -38,7 +38,7 @@ Suggests:
     rmarkdown
 URL: https://github.com/laresbernardo/lares, https://laresbernardo.github.io/lares/
 BugReports: https://github.com/laresbernardo/lares/issues
-RoxygenNote: 7.2.3
+RoxygenNote: 7.3.1
 License: AGPL-3
 Encoding: UTF-8
 LazyData: true

diff --git a/NAMESPACE b/NAMESPACE
@@ -5,6 +5,7 @@ S3method(plot,h2o_automl)
 S3method(plot,h2o_shap)
 S3method(plot,robyn_modelselector)
 S3method(plot,stocks_hist)
+S3method(plot,tree_var)
 S3method(plot,x2y)
 S3method(plot,x2y_preds)
 S3method(print,h2o_automl)

diff --git a/R/audio.R b/R/audio.R
@@ -125,15 +125,24 @@ get_mp3 <- function(id,
   }
 
   # Open file once everything is done
+  mp3_file <- gsub(".info.json", ".mp3", f)
   if (open) {
-    message("Opening file: ", file)
-    browseURL(file)
+    if (file.exists(mp3_file)) {
+      message("Opening file: ", mp3_file)
+      browseURL(mp3_file) 
+    } else {
+      warning("Can't open file; possibly due to strange characters in title: ", mp3_file)
+    }
   }
   # Delete file if delete
   if (delete) {
-    message("Deleting file: ", file)
-    if (open) Sys.sleep(5)
-    file.remove(file)
+    if (file.exists(mp3_file)) {
+      message("Deleting file: ", mp3_file)
+      if (open) Sys.sleep(5)
+      file.remove(mp3_file) 
+    } else {
+      warning("Can't delete file; possibly due to strange characters in title: ", mp3_file)
+    }
   }
 
   return(invisible(infox))

diff --git a/R/trees.R b/R/trees.R
@@ -121,6 +121,7 @@ tree_var <- function(df, y, type = 2, max = 3, min = 20, cp = 0,
   return(invisible(ret))
 }
 
+#' @export
 plot.tree_var <- function(x, ...) {
   if (!inherits(x, "tree_var")) {
     stop("Object must be class tree_var")

diff --git a/man/corr_cross.Rd b/man/corr_cross.Rd
diff --git a/man/corr_var.Rd b/man/corr_var.Rd
diff --git a/man/crosstab.Rd b/man/crosstab.Rd
diff --git a/man/df_str.Rd b/man/df_str.Rd
diff --git a/man/distr.Rd b/man/distr.Rd
diff --git a/man/freqs_df.Rd b/man/freqs_df.Rd
diff --git a/man/freqs_list.Rd b/man/freqs_list.Rd
diff --git a/man/freqs_plot.Rd b/man/freqs_plot.Rd
diff --git a/man/lares.Rd b/man/lares.Rd
diff --git a/man/lasso_vars.Rd b/man/lasso_vars.Rd
diff --git a/man/missingness.Rd b/man/missingness.Rd
diff --git a/man/mplot_conf.Rd b/man/mplot_conf.Rd
diff --git a/man/mplot_density.Rd b/man/mplot_density.Rd
diff --git a/man/mplot_full.Rd b/man/mplot_full.Rd
diff --git a/man/mplot_gain.Rd b/man/mplot_gain.Rd
diff --git a/man/mplot_importance.Rd b/man/mplot_importance.Rd
diff --git a/man/mplot_lineal.Rd b/man/mplot_lineal.Rd
diff --git a/man/mplot_metrics.Rd b/man/mplot_metrics.Rd
diff --git a/man/mplot_response.Rd b/man/mplot_response.Rd
diff --git a/man/mplot_roc.Rd b/man/mplot_roc.Rd
diff --git a/man/mplot_splits.Rd b/man/mplot_splits.Rd