fixed wrong parameter

Author: rix133

R/visualization_functions.R

@@ -661,7 +661,7 @@ download_kegg_png <- function(pw_url, f_path, quiet = TRUE) {
   res <- tryCatch({
     cond <- utils::download.file(url = pw_url,
                                  destfile = f_path,
-                                 method = "wb",
+                                 mode = "wb",
                                  quiet = quiet)
     cond
   }, error = function(e) {