Как изменить размер приложения Shiny в документе R-Markdown с помощью шаблона Tufte?

Я пишу отчет, используя R-Markdown и шаблон Tufte. Я встроил приложения Shiny в отчет.

До сих пор я пытался использовать "fig.width=" и "width=" в параметрах chunck безрезультатно, затем пробовал ",
options = list(height = 600)" непосредственно перед закрывающей скобкой, как было предложено B , Дэвис изменить размеры блестящего приложения, встроенного в r markdown HTML и снова никаких изменений.

hist_dist <- read.csv("hist_dist2.csv", check.names = FALSE)

inputPanel(

selectInput("dist", label = "Choose an ecosystem to explore historical disturbance regimes:", choices = hist_dist$`Ecosystem`, selected = "Northern Hardwoods Forest" ,  width = '70%')
)

renderPlotly({
        ggplot(filter(hist_dist, Ecosystem == input$dist), aes(x=Disturbance, y=Acres)) +
            geom_bar(stat="identity", fill = "darkslategrey") +
            coord_flip() +
            theme(legend.position='none') +
            expand_limits(y=c(0, 60)) +
            theme_bw() + 
            theme(panel.background = element_rect(colour = "grey", fill=NA, size=1), 
            text = element_text(family = "serif", size = 14), 
            panel.grid.major = element_blank(),
            panel.grid.minor = element_blank(), 
            axis.line = element_line(colour = "black")
)

}


)
'''


I am able to change the width if I use other templates (non-Tufte), and are able to control the size of figures, just not Shiny apps.