Фактическая проблема, которую я пытаюсь решить: Я создаю панель, которая будет включать таблицы данных. Я хотел бы, чтобы числа форматировались с запятыми в качестве разделителей тысяч, но есть (очевидно) проблема с пакетом DT, когда он используется с Shiny, в том, что разделенное запятыми форматирование заставляет DT :: renderDataTable читать числа как символы , который влияет на порядок сортировки чисел. (Похоже, что функция форматирования чисел DT не работает с Shiny.)

Где я сейчас нахожусь: Единственное решение, которое мне удалось найти, - это использовать googleVis вместо DT для создания таблиц. Сейчас я сталкиваюсь с другой проблемой (описанной ниже), но что меня действительно волнует, так это наличие таблиц данных с разделенными запятыми числами, которые сортируются как числа.

Проблема GoogleVis: Когда я использую gvisTable вне приложений Shiny, они отображаются отлично, но они вообще не отображаются при использовании renderGvis и htmlOutput в Shiny. В качестве примера я заимствую Пример 4 изВот.

Не используя Shiny, мой код выглядит так:

library(datasets)
library(googleVis)

myOptions <- list(page='enable', pageSize=10, width=550)

Table <- gvisTable(Population,options=myOptions)

plot(Table)

Используя Shiny, это так:

library(datasets)
library(googleVis)
library(shiny)

shinyApp(
  ui = pageWithSidebar(
    headerPanel("Example 4: pageable table"),
    sidebarPanel(
      checkboxInput(inputId = "pageable", label = "Pageable"),
      conditionalPanel("input.pageable==true",
                       numericInput(inputId = "pagesize",
                                    label = "Countries per page",10))
    ),
    mainPanel(
      htmlOutput("myTable")
    )
  ),
  server = function(input,output){
    myOptions <- reactive({
      list(
        page=ifelse(input$pageable==TRUE,'enable','disable'),
        pageSize=input$pagesize,
        width=550
      )
    })
    output$myTable <- renderGvis({
      gvisTable(Population,options=myOptions())
    }) 
  }
)

Любая помощь высоко ценится!