CLEANUP: Don't export wormhole functions

Rename files

Author: HenrikBengtsson

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: future.p2p
 Title: A Peer-to-Peer Compute Cluster via Futureverse
-Version: 0.1.0-9003
+Version: 0.1.0-9004
 Description: Implementation of the 'Future' API <doi:10.32614/RJ-2021-048> that resolves futures on a peer-to-peer ('P2P') compute environment. By using this future backend, you and your friends can share your spare compute resources with each other.
 Depends:
   future (>= 1.67.0)

NAMESPACE

@@ -15,7 +15,6 @@ export(cluster)
 export(find_wormhole)
 export(future_id)
 export(host_cluster)
-export(install_wormhole)
 export(p2p_cluster)
 export(p2p_name)
 export(pico_hosted_channels)
@@ -35,9 +34,6 @@ export(pico_send_message)
 export(pico_terminate)
 export(pico_username)
 export(worker)
-export(wormhole_filename)
-export(wormhole_receive)
-export(wormhole_send)
 importFrom(callr,r_bg)
 importFrom(future,Future)
 importFrom(future,FutureBackend)

R/pico_p2p_cluster.R R/host_cluster.RR/pico_p2p_cluster.R renamed to R/host_cluster.R

@@ -13,7 +13,6 @@
 #' This function relies on the <https://pico.sh> services.
 #'
 #' @importFrom utils file_test
-#' @export
 wormhole_send <- function(file, code, rsh = NULL, ...) {
   debug <- isTRUE(getOption("future.p2p.debug"))
   if (debug) {
@@ -35,7 +34,6 @@ wormhole_send <- function(file, code, rsh = NULL, ...) {
 #'
 #' @rdname wormhole_send
 #' @importFrom utils file_test
-#' @export
 wormhole_receive <- function(code, path = tempdir(), ..., rsh = NULL) {
   stopifnot(file_test("-d", path))
   path <- tempfile(pattern = "dir", tmpdir = path)
@@ -180,7 +178,6 @@ wormhole_call <- function(command = c("send", "receive"), ..., input = NULL, rsh
 }
 
 
-#' @export
 wormhole_filename <- function(sysname = Sys.info()[["sysname"]], arch = R.version[["arch"]]) {
   sysname <- tolower(sysname)
 
@@ -203,7 +200,6 @@ wormhole_pathname <- function(filename = wormhole_filename(), path = tools::R_us
 } ## wormhole_pathname()
 
 #' @importFrom utils download.file file_test
-#' @export
 install_wormhole <- function(pathname = wormhole_pathname(), version = "1.0.8") {
   ## Nothing to do?
   if (file_test("-x", pathname)) return(pathname)