Ошибка в источнике (x, encoding = "UTF-8") в r - PullRequest
Новая
       3

Ошибка в источнике (x, encoding = "UTF-8") в r

0 голосов
/ 04 февраля 2020

Мне нужно выполнить фрагмент кода, чтобы вывести список файлов в каталоге, используя функцию источника, но он выдает ошибку. Пожалуйста, помогите мне решить это. Это код 

invisible(sapply(list.files("./Src/LibrariesAndFunctions/",full.names = TRUE,recursive = TRUE),
       function(x) {
         source(x,encoding = "UTF-8")
       }))

Это код I103_Setup.R 

##
##  xyz_Setup.R
##
##    source("./Src/xyz_Setup.R")
##

options(encoding = "UTF-8")

if (!exists("xyz.setup.loaded") || xyz.setup.loaded == FALSE) {

  xyz.setup.loaded <<- TRUE

  ##
  ## (Log files) # Actually this is in Japanese
  ##    DEBUG
  ##    INFO
  ##    ERROR
  ##
  logging.levels <<- c("DEBUG", "INFO", "ERROR")
  logging.currentLevel <<- "INFO"

  ##
  ##
  ##
  logging.file <<- "xyz.log"

}

Я получаю сообщение об ошибке 

 Error in source(x, encoding = "UTF-8") : 
  ./Src/LibrariesAndFunctions//01_Setup_Logging_Milestone/I103_Setup.R:15:0: unexpected end of input
13:   ##
14:   ## 
   ^

Я думаю, что ошибка вырвет, потому что не может разобрать другие языки. Есть ли способ разбирать языки, кроме Engli sh в R? По сути, кодирование UTF-8 должно решить эту проблему. Я не понимаю, где проблема.

...