R блестящая ошибка приложения: неожиданная строковая константа в функции gsub для фигурных кавычек

Question

Я создаю блестящее приложение, которое выполняет большую часть анализа текста.

Когда я выполняю приведенную ниже функцию в R для замены фигурных кавычек «» и «на» и «соответственно», это прекрасно работает.

Пример:

essay <- "peoples’ memories have “faded into mist” "
essay <- gsub("[“”]", "\"", gsub("[‘’]", "'", essay))
> essay
[1] "peoples' memories have \"faded into mist\" "

Вышеописанное прекрасно работает, но когда я переключаюсь на блестящий файл приложения app.R, оно не работает.

Функция gsubв скрипте functions.R, который вызывается источником ("functions.R") в моем скрипте app.R.

Теперь, когда я нажимаю "Запустить приложение" в моем файле app.R, консоль выводит эту ошибку:

Warning: Error in source: functions.R:331:20: unexpected string constant
330:   # replace smart curly quotes by normal quotes
331:   essay <- gsub("[""]"
47: source

Кто-нибудь знает, что вызвало это?

Answer 1

Так что R не был доволен [«»] и [''] в gsub в блестящем приложении.

Ниже приведен большой подробный ответ от Wiktor Stribiżew для нормализации кавычек: Text Mining R Package & Regex для обработки Заменить Smart Curly Quotes

Но когда функция выполняется вблестящее приложение, оно выводит кавычки как обычные [""] и [''], поэтому функция не работает.

В итоге я использовал https://github.com/ColinFay/proustr#pr_normalize_punc

Cheers