有没有通过自定义HTML将ShinyFile与shinymaterial一起使用的方法？

我试图在我的闪亮应用程序中使用

shinyFiles:：shinySaveButton

，该应用程序使用

shinymaterial:：material_页面

，但模式中的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)

库（闪亮）
图书馆（Shinymatary）
图书馆（shinyFiles）
ui查看返回的
shinySaveButton
对象。这里使用了
shinyFiles
特定的css，我猜您必须对此进行调整感谢您的回复，是的，我同意，解决方案很可能涉及调整材质css的样式表。。