我输入的:data<-read.csv("sites.csv",encoding = "UTF-8")print(data)
报错:
function (..., list = character(), package = NULL, lib.loc = NULL, verbose = getOption("verbose"), envir = .GlobalEnv, overwrite = TRUE) { fileExt <- function(x) { db <- grepl("\\.[^.]+\\.(gz|bz2|xz)$", x) ans <- sub(".*\\.", "", x) ans[db] <- sub(".*\\.([^.]+\\.)(gz|bz2|xz)$", "\\1\\2", x[db]) ans } my_read_table <- function(...) { lcc <- Sys.getlocale("LC_COLLATE") on.exit(Sys.setlocale("LC_COLLATE", lcc)) Sys.setlocale("LC_COLLATE", "C") read.table(...) } stopifnot(is.character(list)) names <- c(as.character(substitute(list(...))[-1L]), list) if (!is.null(package)) { if (!is.character(package)) stop("'package' must be a character vector or NULL") } paths <- find.package(package, lib.loc, verbose = verbose) if (is.null(lib.loc)) paths <- c(path.package(package, TRUE), if (!length(package)) getwd(), paths) paths <- unique(normalizePath(paths[file.exists(paths)])) paths <- paths[dir.exists(file.path(paths, "data"))] dataExts <- tools:::.make_file_exts("data") if (length(names) == 0L) { db <- matrix(character(), nrow = 0L, ncol = 4L) for (path in paths) { entries <- NULL packageName <- if


雷达卡





京公网安备 11010802022788号







