Add kill function to implements remote check

Author: r-ash

R/remote.R

@@ -472,7 +472,8 @@ implements_remote <- function(x) {
     is.function(x$list_versions) &&
     is.function(x$pull) &&
     is.function(x$run) &&
-    is.function(x$url_report)
+    is.function(x$url_report) &&
+    is.function(x$kill)
 }
 
 

R/remote_path.R

@@ -96,5 +96,9 @@ orderly_remote_path_ <- R6::R6Class(
 
     bundle_import = function(path) {
       orderly_bundle_import(path, root = self$config, locate = FALSE)
+    },
+
+    kill = function(...) {
+      stop("'orderly_remote_path' remotes do not kill")
     }
   ))

tests/testthat/test-remote-path.R

@@ -318,3 +318,11 @@ test_that("bundle pack and import", {
 
   expect_equal(remote$list_versions("example"), ans$id)
 })
+
+
+test_that("orderly_cancel_remote", {
+  dat <- prepare_orderly_remote_example()
+  expect_error(
+    orderly_cancel_remote("example", root = dat$config),
+    "'orderly_remote_path' remotes do not kill")
+})

tests/testthat/test-remote.R

@@ -269,7 +269,8 @@ test_that("orderly run remote passes instance to run", {
       list_reports = function() TRUE,
       list_versions = function() TRUE,
       pull = function() TRUE,
-      url_report = function() TRUE
+      url_report = function() TRUE,
+      kill = function() TRUE
     )
   )
 
@@ -334,7 +335,8 @@ test_that("orderly run remote passes ref to run", {
       list_reports = function() TRUE,
       list_versions = function() TRUE,
       pull = function() TRUE,
-      url_report = function() TRUE
+      url_report = function() TRUE,
+      kill = function() TRUE
     )
   )
 
@@ -379,6 +381,7 @@ test_that("can get status of remote queue", {
       pull = function() TRUE,
       run = function() TRUE,
       url_report = function() TRUE,
+      kill = function() TRUE,
       queue_status = function() mock_status()
     )
   )