R Shiny: у всех столбцов есть класс Character, когда они отображаются в ShinyApp после преобразования форматируемого вывода в as.datatable

Question

Требование / вопрос: Нужно, чтобы все столбцы в одном и том же формате в пользовательском интерфейсе Shiny App были такими же, как в среде R.

После преобразования форматируемого вывода в datatable с использованием функции as.datatable, хотя я могу фильтровать вещи, но все столбцы находятся в символьном классе WHEN, представленном в shinyapp. Значение 700 > 6000, 9>10 и т. Д. (Только потому, что оно не рассматривается как числовой класс)

Пример кода для тестирования:

    #libraries
    library(formattable)
    library(shiny)

    #upto 2 digits issue cannot be seen as 9.1 >8.1 etc even in character format, hence increasing the numbers by multiplying it to another column.
    iris$Sepal.Width <- iris$Sepal.Width*iris$Petal.Length

    #creating UI
    ui <- fluidPage(
      DT::dataTableOutput("table1"))

    #creating server
    server <- function(input, output){
      output$table1 <- DT::renderDataTable( 
        as.datatable(formattable(iris)))
    }

    #calling the server
    shinyApp(ui, server)

наблюдение: при попытке отсортировать столбец Sepal.Width в порядке убывания, 9.x будет сверху, тогда как в ShinyUI должно быть 25,46.

Примечание. Нажмите "Показать фильтр 100" в ShinyApp, а затем используйте сортировку для лучшего понимания проблемы.

Все вещи работают отлично, когда сделано в R, но терпит неудачу в ShinyApp. Нужно получить те же форматы в ShinyApp, что и в среде R.