install.packages("algorithmia")
library(algorithmia)
# Authenticate with your API key
apiKey <- "MY_API"
# Create the Algorithmia Client object
client <- getAlgorithmiaClient(apiKey)

# Get (and create) a directory collection
path <- "data://marton_balazs_kovacs/test"
nlp_directory <- client$dir(path)
nlp_directory$create()

# Update directory permissions (e.g. make it private)
nlp_directory$updatePermissions(ReadAcl.PRIVATE)
nlp_directory$getPermissions()$read_acl

# Get one file
## If you refer to the file with the exact name the function works
input <- nlp_directory$file("test.jpg")
## Test if the file that we asked for exists
input$exists()

# Get childs of the directory collection
## This function supposed to get all the files in my directory but it does not
input_files <- nlp_directory$files()
## This argument should get the names of the files in a list but it does not work
input_files <- input_files$directoryEntries

# Get the names of the files from a local repository
## Path to the local directory with the images
local_path <- file.path("MY_PATH")
## Get the filenames in that repository
local_filenames <- list.files(local_path)
## Append filenames to the dirpath on algorithmia and store it in a list obj
input_files <- list(image = paste(path, local_filenames, sep = "/"))

# Run the algorithm
algo <- client$algo("deeplearning/ColorfulImageColorization/1.1.13")
algo$setOptions(timeout=300) # optional
result <- algo$pipe(input_files)$result
print(result)