Невозможно создать пакет в R - PullRequest
0 голосов
/ 16 мая 2018

Я пытаюсь создать пользовательский пакет в R, но мне не удалось решить эту проблему. Я создал пакет, используя интерфейс в R studio. Кажется, как только я сохраняю f

Вот мой код:

#' Imports Multiple files from a given folder
#' @param 
#' @keywords 
#' @export
#' @examples
#' import_folder
import_folder <- function(path,skip){
  hdr <- NA
  files <- list.files(path)
  for(i in 1:length(files)){
    if(substr(files[i],nchar(files[i])-3,nchar(files[i]))==".csv"){
      assign(tolower(make.names(files[i])),read.csv(files[i]),envir=globalenv())

    } else if (substr(files[i],nchar(files[i])-3,nchar(files[i]))==".txt"){
      hdr[i] <- read.table(files[i],header = FALSE, skip = if(missing(skip)){1} else {skip}, sep = "*", row.names = NULL, fill = TRUE, nrows = 1)
      assign(tolower(make.names(files[i])), read.fwf(files[i],
                                                     widths=nchar(strsplit(as.character(hdr[[i]]),"\\|")[[1]])+1,
                                                     header=FALSE,
                                                     skip=2,
                                                     row.names = NULL,
                                                     fill=TRUE),envir=globalenv())
      remove(hdr)

    } else if (substr(files[i],nchar(files[i])-3,nchar(files[i]))=="xlsx"){
      assign(tolower(make.names(files[i])),read.xlsx(files[i],sheet=1),envir=globalenv())

    } else
      print(paste("Could not read",make.names(files[i]),sep=" "),envir=globalenv())

  }
}

devtools::document()

Однако, когда я запускаю строку документа, я получаю это:

Updating mghnywl documentation
Loading mghnywl
Updating mghnywl documentation
Loading mghnywl
Updating mghnywl documentation
Loading mghnywl
Updating mghnywl documentation
Loading mghnywl
Updating mghnywl documentation
Loading mghnywl

.....

, который не останавливается до истечения времени ожидания.

Я полностью потерян. Что я делаю не так?

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...