Блестящие элементы renderUI не масштабируются на меньшем экране

Question

У меня есть пара элементов на блестящей приборной панели (с использованием flexdashboard, smoothjs и Блестящий виджет), которые затеняются при каждой попытке масштабирования от размера браузера до размера экрана планшета или телефона. Это происходит только с элементами, созданными с помощью функции renderUI(). Те же объекты отображаются нормально, если они просто объявлены и "неактивны". Это не уникально для следующего раскрывающегося примера, но также происходит при рендеринге HTML() аналогичным образом.

Например, следующая выпадающая кнопка блестящий виджет будет отлично масштабироваться, если она будет немедленно объявлена. Другими словами, он отображается на экране как соответствующая высота.

dropdownButton(
    p(strong("Append to API request")),
    circle = FALSE, 
    status = "danger",
    label = " Toggle",
    icon = icon("transfer", lib = "glyphicon"), 
    width = "200px"
)

Это, однако, не делает и становится скрытым следующей панелью с чрезмерным заполнением внизу, которое не присутствует в размере браузера.

uiOutput('sample_dropdown')
output$sample_dropdown <- renderUI(dropdownButton(
    circle = FALSE, 
    status = "danger",
    label = " Resample",
    icon = icon("record", lib = "glyphicon"), 
    width = "200px"
))