Nothing
#' @title Get File Type from Extension
#' @description A utility function to retrieve the file type from a file extension (via its filename/path/URL)
#' @param file A character string containing a filename, file path, or URL.
#' @return A characters string containing a file type recognized by rio.
#' @export
get_ext <- function(file) {
if (!is.character(file)) {
stop("'file' is not a string")
}
if (!grepl("^http.*://", file)) {
fmt <- tools::file_ext(file)
} else if(grepl("^http.*://", file)) {
parsed <- strsplit(strsplit(file, "?", fixed = TRUE)[[1]][1], "/", fixed = TRUE)[[1]]
file <- parsed[length(parsed)]
fmt <- tools::file_ext(file)
get_type(fmt)
}
if (file == "clipboard") {
return("clipboard")
} else if (fmt == "") {
stop("'file' has no extension", call. = FALSE)
} else {
return(tolower(fmt))
}
}
get_type <- function(fmt) {
type_list <- list(
clipboard = "clipboard",
# supported formats
"," = "csv",
";" = "csv2",
"\t" = "tsv",
"|" = "psv",
arff = "arff",
csv = "csv",
csv2 = "csv2",
csvy = "csvy",
dbf = "dbf",
dif = "dif",
dta = "dta",
dump = "dump",
epiinfo = "rec",
excel = "xlsx",
feather = "feather",
fortran = "fortran",
fst = "fst",
fwf = "fwf",
htm = "html",
html = "html",
json = "json",
mat = "matlab",
matlab = "matlab",
minitab = "mtp",
mtp = "mtp",
ods = "ods",
por = "spss",
psv = "psv",
r = "r",
rda = "rdata",
rdata = "rdata",
rds = "rds",
rec = "rec",
sas = "sas7bdat",
sas7bdat = "sas7bdat",
sav = "sav",
spss = "sav",
stata = "dta",
syd = "syd",
systat = "syd",
tsv = "tsv",
txt = "tsv",
weka = "arff",
xls = "xls",
xlsx = "xlsx",
xml = "xml",
xport = "xpt",
xpt = "xpt",
yaml = "yml",
yml = "yml",
eviews = "eviews",
wf1 = "eviews",
zsav = "zsav",
# compressed formats
csv.gz = "gzip",
csv.gzip = "gzip",
gz = "gzip",
gzip = "gzip",
tar = "tar",
zip = "zip",
# known but unsupported formats
bib = "bib",
bibtex = "bib",
bmp = "bmp",
gexf = "gexf",
gnumeric = "gnumeric",
jpeg = "jpg",
jpg = "jpg",
npy = "npy",
png = "png",
sdmx = "sdmx",
sss = "sss",
tif = "tiff",
tiff = "tiff"
)
out <- type_list[[tolower(fmt)]]
if (is.null(out)) {
return(fmt)
}
return(out)
}
twrap <- function(value, tag) {
paste0("<", tag, ">", value, "</", tag, ">")
}
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.