相关疑难解决方法(0)

我有一个产生数据表的Shiny应用程序,但是我无法冻结第一列和标题,因此当您向下或跨越时,表格难以阅读.反正有没有冻结窗格？我试过搜索但没找到任何东西.

我想对使用美元格式化的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)