inst/tinytest/test_unrar_file.r

In stasvlasov/romRDS: Read or Make RDS

expect_true({
    rar_url <- "https://getsamplefiles.com/download/rar/sample.rar"
    ## download to tmp dir for testing
    dir_map <- list(list("rar", "doc" = "docx"))
    names(dir_map) <- tempdir()
    ## download and extract
    romRDS:::download_file(rar_url, dir_map) |>
        romRDS:::unrar_file("word/sample.docx", dir_map)
    names(dir_map) |>
        file.path("doc", "sample.docx") |>
        file.exists()
})