Nothing
skip_on_cran()
test_that("Import Remote Stata File", {
f <- try(import("http://www.stata-press.com/data/r13/auto.dta"))
if (!inherits(f, "try-error")) {
expect_true(is.data.frame(f))
}
})
test_that("Import Remote GitHub File", {
rfile <- "https://raw.githubusercontent.com/gesistsa/rio/main/tests/testdata/noheader.csv"
rfile_imported1 <- try(import(rfile))
if (!inherits(rfile_imported1, "try-error")) {
expect_true(inherits(rfile_imported1, "data.frame"), label = "Import remote file (implied format)")
}
rfile_imported2 <- try(import(rfile, format = "csv"))
if (!inherits(rfile_imported2, "try-error")) {
expect_true(inherits(rfile_imported2, "data.frame"), label = "Import remote file (explicit format)")
}
lfile <- remote_to_local(rfile)
if (!inherits(lfile, "try-error")) {
expect_true(file.exists(lfile), label = "Remote file copied successfully")
expect_true(inherits(import(lfile), "data.frame"), label = "Import local copy successfully")
}
## short url
payload <- try(import("https://is.gd/NLAxtg"))
if (!inherits(payload, "try-error")) {
expect_true(inherits(payload, "data.frame"), label = "Import remote file from shorten url (implied format)")
}
## no extension
noextension_url <- "https://github.com/gesistsa/rio/raw/main/tests/testdata/iris_no_extension_xls"
expect_error(import(noextension_url))
expect_error(import(noextension_url, format = "xls"), NA)
})
test_that("Import from Google Sheets", {
googleurl1 <- "https://docs.google.com/spreadsheets/d/1I9mJsS5QnXF2TNNntTy-HrcdHmIF9wJ8ONYvEJTXSNo/edit#gid=0"
expect_true(inherits(import(googleurl1), "data.frame"), label = "Import google sheets (specified sheet)")
googleurl2 <- "https://docs.google.com/spreadsheets/d/1I9mJsS5QnXF2TNNntTy-HrcdHmIF9wJ8ONYvEJTXSNo/edit"
expect_true(inherits(import(googleurl2), "data.frame"), label = "Import google sheets (unspecified sheet)")
expect_true(inherits(import(googleurl1, format = "tsv"), "data.frame"), label = "Import google sheets (specified sheet, specified format)")
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.