Merge pull request #12 from ColinFay/10-install-fails-gracefully-if-p…

…ackage-does-not-exists

feat: install fails gracefully if package is not found on the webr repo

rpkg/R/get_list_of_tar_gz_dependencies_for_package.R

@@ -21,6 +21,13 @@ get_list_of_tar_gz_dependencies_for_package <- function(
 
   options(repos = c(webr = repos))
 
+  # Getting the list of available package
+  info <- utils::available.packages(contriburl = repos)
+
+  if (!pk_to_install %in% info[, "Package"]) {
+    return(FALSE)
+  }
+
   deps <- unique(
     unlist(
       use.names = FALSE,
@@ -40,8 +47,7 @@ get_list_of_tar_gz_dependencies_for_package <- function(
     deps
   )
 
-  # Getting the list of available package
-  info <- utils::available.packages(contriburl = repos)
+
 
   res <- data.frame(
     package = character(0),

src/install.js

@@ -29,6 +29,11 @@ const installIt = async function (
     package_to_install
   )
 
+  if (urlsr.values[0] === false){
+    console.error(`❌ {${package_to_install}} not found on the webr package repository.`)
+    return false
+  }
+
   const paks = urlsr.values[0].values
   const urls = urlsr.values[1].values
   let compiled_urls = {}

tests/install.test.js

@@ -18,6 +18,10 @@ test('installIt works', async () => {
     )
   };
 
+  const pkg_not_installed = await installIt("pouetpouet", temp_dir);
+
+  expect(pkg_not_installed).toBe(false);
+
   await installIt("attempt",temp_dir);
 
   expect(