 	(rcmd "docker zip"))
     (setq version (read-string "Version: "))
     (setq path (read-directory-name "Path: "))
-    (setq platform (ido-completing-read "Platform: " rsuite/docker-platforms))
+    (setq platform (ivy-read
+		    "Platform: "
+		    rsuite/docker-platforms))
     (setq rcmd (concat rcmd
 		       " --dest=" path
 		       " --platform=" platform))

      )
    curr-dir))

(defun rsuite-toggle-verbose ()
  "Toggle R Suite verbosity."
  (interactive)

  (let ((pkg_name nil)
	(pkg_tmpl nil))
    (setq pkg_name (read-string "Give package name: "))
    (setq pkg_tmpl (ivy-read "Give package template: " (rsuite-get-templates)))
    (if (> (length pkg_tmpl) 0)
	(run-async-rsuite (concat "proj pkgadd --name=" pkg_name " --tmpl=" pkg_tmpl))
      (run-async-rsuite (concat "proj pkgadd --name=" pkg_name)))))
