tests/testthat/test01a_onedrive_conntransfer.R

In Microsoft365R: Interface to the 'Microsoft 365' Suite of Cloud Services

tenant <- "consumers"
app <- Sys.getenv("AZ_TEST_NATIVE_APP_ID")

if(app == "")
    skip("OneDrive tests skipped: Microsoft Graph credentials not set")

if(!interactive())
    skip("OneDrive tests skipped: must be in interactive session")

tok <- get_test_token(tenant, app, c("Files.ReadWrite.All", "User.Read"))
if(is.null(tok))
    skip("OneDrive tests skipped: unable to login to consumers tenant")

drv <- try(call_graph_endpoint(tok, "me/drive"), silent=TRUE)
if(inherits(drv, "try-error"))
    skip("OneDrive tests skipped: service not available")

opt_use_itemid <- options(microsoft365r_use_itemid_in_path=TRUE)
od <- ms_drive$new(tok, tenant, drv)
folder <- od$create_folder(make_name())

test_that("OneDrive file transfer extras work",
{
    expect_is(od, "ms_drive")

    src <- "../resources/file.json"
    img <- "../resources/logo_small.jpg"

    # upload raw connection
    r <- readBin(img, what="raw", n=file.size(img))
    rcon <- rawConnection(r)
    expect_silent(folder$upload(rcon, "raw.jpg"))

    # upload text connection
    tcon <- textConnection(readLines(src))
    expect_silent(folder$upload(tcon, "text.json"))

    # download raw vector
    expect_silent(rret <- folder$get_item("raw.jpg")$download(NULL))
    expect_type(rret, "raw")
    expect_identical(r, rret)

    expect_silent(tret <- folder$get_item("text.json")$download(NULL))
    expect_type(tret, "raw")
    expect_identical(rawToChar(tret), paste0(readLines(src), collapse="\n"))
})


test_that("OneDrive load/save methods work",
{
    fname <- folder$properties$name

    name1 <- file.path(fname, "iris.csv")
    expect_silent(od$save_dataframe(iris, name1))
    ir1 <- od$load_dataframe(name1)
    expect_s3_class(ir1, "data.frame")
    expect_identical(dim(ir1), dim(iris))

    name2 <- file.path(fname, "iris.rds")
    expect_silent(od$save_rds(iris, name2))
    ir2 <- od$load_rds(name2)
    expect_s3_class(ir2, "data.frame")
    expect_identical(dim(ir2), dim(iris))

    name3 <- file.path(fname, "iris.rdata")
    ir3 <- iris
    expect_silent(od$save_rdata(ir3, file=name3))
    rm(ir3)
    od$load_rdata(name3)
    expect_identical(ir3, iris)
})


teardown({
    options(opt_use_itemid)
    folder$delete(confirm=FALSE)
})