R/read_file.R

In dynverse/babelwhale: Talking to 'Docker' and 'Singularity' Containers

#' Read a file from a container
#'
#' @inheritParams copy_file
#'
#' @examples
#' if (test_docker_installation()) {
#'   set_default_config(create_docker_config(), permanent = FALSE)
#'   read_file("alpine", "/etc/hosts")
#' }
#'
#' @importFrom dynutils safe_tempdir
#'
#' @export
read_file <- function(
  container_id,
  path_container
) {
  temp_folder <- dynutils::safe_tempdir("")
  on.exit(unlink(temp_folder, recursive = TRUE, force = TRUE))

  path_local <- paste0(temp_folder, "/tmpfile")

  copy_file(
    container_id = container_id,
    path_container = path_container,
    path_local = path_local
  )
  readLines(path_local)
}