sqlQuery в R сбой при вызове через source () [duplicate]

В окнах, когда вы копируете в строку кодировки unicode или utf-8 в текстовый элемент управления, который настроен на однобайтовый ввод (ascii ... в зависимости от локали), неизвестные байты будут заменены на вопросительные знаки. Если я беру первые 4 символа вашей строки и скопирую их в, например, Блокнот, а затем сохраните его, файл будет в шестнадцатеричном формате:

52 3F 3F 3F 3F

, что вам нужно сделать, это найти редактор, который вы можете установите для utf-8 перед копированием в него текста, тогда сохраненный файл (из ваших первых 4-х символов) станет:

52 E5 90 8C E6 97 B6 E4 B9 9F E8 A2 AB

Это будет признано действительным utf-8 [R].

Я использовал «Notepad2» для этого, но я уверен, что есть еще много .

Для меня (в окнах) я:

source.utf8 <- function(f) {
    l <- readLines(f, encoding="UTF-8")
    eval(parse(text=l),envir=.GlobalEnv)
}

Он отлично работает.

Я думаю, что проблема связана с R. Я могу с радостью загрузить файлы UTF-8 или файлы UCS-2LE со многими не-ASCII-символами. Но некоторые символы приводят к сбою. Например, следующие

danish <- function() print("Skønt H. C. Andersens barndomsomgivelser var meget fattige, blev de i hans rige fantasi solbeskinnede.")
croatian <- function() print("Dodigović. Kako se Vi zovete?")
new_testament <- function() print("Ne provizu al vi trezorojn sur la tero, kie tineo kaj rusto konsumas, kaj jie ŝtelistoj trafosas kaj ŝtelas; sed provizu al vi trezoron en la ĉielo")
russian <- function() print ("Американские суда находятся в международных водах. Япония выразила серьезное беспокойство советскими действиями.")

хороши как в UTF-8, так и в UCS-2LE без русской линии. Но если это включено, то это терпит неудачу. Я указываю пальцем на R. Ваш китайский текст также кажется слишком сложным для R в Windows.

Locale кажется здесь неактуальным. Это всего лишь файл, вы говорите ему, что кодирует файл, почему ваш язык имеет значение?

На основе ответа ворона это решение заставляет работать кнопку RStudio Source.

При нажатии этой кнопки Source выполняется RStudio source('myfile.r', encoding = 'UTF-8') ]), поэтому переопределение source заставляет ошибки исчезать и запускает код, как ожидалось:

source <- function(f, encoding = 'UTF-8') {
    l <- readLines(f, encoding=encoding)
    eval(parse(text=l),envir=.GlobalEnv)
}

В R / Windows в source возникают проблемы с любыми символами UTF-8, которые не могут быть представлены в текущей локали (или кодовой странице ANSI в Windows-talk). И, к сожалению, Windows не имеет UTF-8, доступного в виде кодовой страницы ANSI. У Windows есть техническое ограничение, что кодовые страницы ANSI могут быть только кодировками с одним или двумя байтами на каждый символ, а не с кодировками с байтами, такими как UTF- 8.

Это не является фундаментальной неразрешимой проблемой - есть что-то не так с функцией source. Вы можете получить 90% пути, выполнив это:

eval(parse(filename, encoding="UTF-8"))

Это будет работать почти так же, как source() с аргументами по умолчанию, но не позволит вам делать echo = T, eval .print = T и т. д.

Я сталкиваюсь с этой проблемой при попытке создать файл .R, содержащий некоторые китайские символы. В моем случае я обнаружил, что просто установить «LC_CTYPE» на «китайский» недостаточно. Но настройка «LC_ALL» на «китайский» работает хорошо.

Обратите внимание, что недостаточно получить правильную кодировку при чтении или записи текстового файла в Rstudio (или R?) с не-ASCII. Также выполняется установка языкового стандарта.

PS. команда Sys.setlocale (category = "LC_CTYPE", locale = "chinese"). Пожалуйста, замените значение локали соответственно.