slidify - 使用 Shiny 在 Slidify 中更改字体大小和侧面板

Question

我正在创建一个内部有闪亮应用程序的 slidify 演示文稿。

例如：

## Interactive Chart with Shiny Controls

{r opts.label = 'shiny'}
slidifyUI(
  sidebarPanel(
    selectInput('sex', 'Choose Sex', c('Male', 'Female')),
    selectInput('type', 'Choose Type',
      c('multiBarChart', 'multiBarHorizontalChart')
    )
  ),
  mainPanel(
    tags$div(id = 'googletables', class='shiny-html-output')
  )
)

该应用程序是

require(rCharts)
output$googletables <- renderGvis({gvisTable(Population, options=list(width="100%", height="100%"))})

我想做两件事：

1. 使表格上的文字变小

2. 将设计从侧面板更改为浮动面板，如本例所示。

谢谢您的帮助！