r - Shiny の DataTable で Formattable が列の並べ替えを破る

Question

flexdashboard現在、とを使用して小さなダッシュボードを作成していshinyます。値を並べ替えることが不可欠な多くの会計列が含まれています。テーブルの一部として、テーブルをレンダリングする前にformattableライブラリを使用して列をフォーマットします。accounting

問題は、フォーマットされた列が本質的に数値をテキストに変換するため、並べDataTable替えを壊すことです。formattable

問題を再現するコードは次のとおりです。

---
title: "Dashboard"
output: 
  flexdashboard::flex_dashboard:
    orientation: rows
    vertical_layout: scroll
runtime: shiny
---

```{r packages, include = F}
library(DT)
library(formattable)
library(dplyr)
```

```{r}
sign_formatter <- formattable::formatter("span", 
                                         style = x ~ style(color = ifelse(x > 0, "green", 
                                                                          ifelse(x < 0, "red", "black"))))
```

Results {data-height=800 data-width=100%}
---------------------------------------------

```{r data}
df <- data.frame(category = sample(LETTERS, 30, replace = T), 
                 income = runif(30, -10, 10) * 1e4)

# Format Table
df <- df %>%
  mutate(`income` = accounting(`income`, digits = 0L))

renderDataTable(
  formattable(df, list(
     `income` = sign_formatter
    )) %>%
    as.datatable(., class = 'cell-border stripe table table-striped',
                 filter = 'top', escape = FALSE, selection = 'none',
                 options = list(autoWidth = TRUE,
                                server = TRUE,
                                fixedHeader = TRUE,
                                columnDefs = list(list(width = '200px', targets = c(1)))
                                ), rownames = FALSE)
  )

```

下の小さな図は、降順で並べ替えたときの問題を示しています。