renderDataTable неправильно отображает символы

Question

Как мне сделать renderDataTable для правильного отображения моих символов (é, ñ), прочитанных из файла .csv?

В представленной таблице отображаются вопросительные знаки в обоих столбцах.

server = function(input, output, session)
  {
       cal <<- read.csv(calendar_name, stringsAsFactors = F, encoding = "UTF-8")
       output$table <- DT::renderDataTable(DT::datatable(cal, rownames = F))
      }

мой CSV-файл:

test1, test2 é, ñ

Answer 1

Я подозреваю, это ваш файл, возможно, вы установили неправильную кодировку?

Создание таблицы в Excel 1,2,3,4 и ваших текстовых строк в строке 2, а затем экспорт в формате CSV с Unicode UTF-8 отлично работает для меня.

с использованием << - это не тот путь, которым нужно идти.Это назначает данные среде уровня 1 от вашего приложения, в данном случае глобальной среде.Вместо этого вы хотите выполнить локальное присваивание внутри блоков рендеринга, или, что еще лучше, снаружи в реактивных ({}) объектах или реактивных значениях () </p>

Это прекрасно работает для меня:

library('shiny')
library('DT')

ui <- fluidPage(

  dataTableOutput('table1')
)

server <- function(input, output, session) {

   DataX <- reactive({ setwd('D:/')
     mydata <- read.csv('Dummyfile.csv', header = F, stringsAsFactors = F, encoding = "UTF-8") 
                      mydata})

  output$table1 <- DT::renderDataTable(DT::datatable(DataX(), rownames = F))
}


shinyApp(ui = ui, server = server)