pin_minio_sspcloud

pin_minio.R

library(magrittr)
library(pins)

board <- pins::board_s3(
    bucket = "jdlomenede",
    prefix = "my_board/",
    versioned = TRUE,
    access_key = Sys.getenv("AWS_ACCESS_KEY_ID"),
    secret_access_key = Sys.getenv("AWS_SECRET_ACCESS_KEY"),
    session_token = Sys.getenv("AWS_SESSION_TOKEN"),
    credential_expiration = NULL,
    profile = NULL,
    region = "",
    endpoint = paste0("http://",Sys.getenv("AWS_S3_ENDPOINT")),
    cache = NULL
  )

board %>% pin_write(mtcars, "mtcars")

board %>% pin_read("mtcars")