小编dav*_*ers的帖子

我想对使用美元格式化的DataTable列进行排序(因此是一个字符).我用于scales::dollar()格式化.这会将字段转换为导致排序问题的字符(例如,"$8" > "$10").

如何将字段排序为数字？或者,我可以将字段保留为数字,只打印美元格式吗？

app.R(需要Shiny 0.10.2)

server <- function(input, output) {
  output$foo_table <- renderDataTable({
    x <- seq(8000, 12000, by = 1000)
    x <- scales::dollar(x)
    d <- data.frame(x, stringsAsFactors = FALSE)
    d
  })
}

ui <- shinyUI(fluidPage(
    mainPanel(dataTableOutput("foo_table"))
  )
)

shinyApp(ui = ui, server = server)