我输入的：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