有没有一种方法可以通过自定义HTML将ShinyFiles与Shinymaterial一起使用？

Question

我正在尝试在使用shinyFiles::shinySaveButton的闪亮应用程序中使用shinymaterial::material_page，但是模式内部的UI元素未按预期呈现。我希望我可能必须使用自定义HTML：

<button id="inputId" type="button" class="shinySave btn-default" data-title="title" data-filetype="[{name: 'type1', ext: ['txt']}, {name: 'type2', ext: ['exe', 'bat']}]">label</button>

...但似乎无法使事情按预期工作。

请参阅reprex：

library(shiny)
library(shinymaterial)
library(shinyFiles)


ui <- material_page(
  shinySaveButton(
    id = "savefilebutton",
    label = "Save file",
    title = "Save file:",
    filename = "filename",
    filetype = list(table=c('csv', 'xls'))
  )
)

server <- function(input, output, session){
  
}

shinyApp(ui, server)