1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
|
.import <- function(file, ...) {
UseMethod(".import")
}
.import.default <- function(file, ...) {
fileinfo <- get_info(file) ## S3 can't be dispatched
if (fileinfo$type == "unknown" || is.na(fileinfo$import_function) || fileinfo$import_function == "") {
stop("Format not supported", call. = FALSE)
}
if (fileinfo$type == "known") {
stop(sprintf(gettext("%s format not supported. Consider using the '%s()' function"),
fileinfo$format, fileinfo$import_function), call. = FALSE)
}
if (fileinfo$type == "enhance") {
pkg <- strsplit(fileinfo$import_function, "::", fixed = TRUE)[[1]][1]
stop(sprintf(gettext("Import support for the %s format is exported by the %s package. Run 'library(%s)' then try again."),
fileinfo$format, pkg, pkg), call. = FALSE)
}
}
.export <- function(file, x, ...) {
UseMethod(".export")
}
.export.default <- function(file, x, ...) {
fileinfo <- get_info(file)
if (fileinfo$type == "unknown" || is.na(fileinfo$export_function) || fileinfo$export_function == "") {
stop("Format not supported", call. = FALSE)
}
if (fileinfo$type == "known") {
stop(sprintf(gettext("%s format not supported. Consider using the '%s()' function"),
fileinfo$format, fileinfo$export_function), call. = FALSE)
}
}
|