Shiny 我们能把过滤器移到右边吗

我正在尝试将过滤移到右侧，但无法。谁能帮忙吗。请参考预期输出。有可能做到这一点吗

下面是雷普雷克斯

title: "Untitled"
runtime: shiny
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
---

```{r setup, include=FALSE}
library(flexdashboard)
library(DT)
```

Column {data-width=650}
-----------------------------------------------------------------------

### Chart A

```{r}
selectInput("Tic","Ticker",choices = c("","ALL",as.character(iris$Species)),selected = NULL)
dateRangeInput("Date","Date",start = '2016-01-01', end = Sys.time(),format = "yyyy-mm-dd")
DT::DTOutput('SUMMARY_GENERAL_table')


output$SUMMARY_GENERAL_table <- DT::renderDT( datatable(iris) )
```

标题：“无标题”
运行时间：闪亮
输出：
flexdashboard:：flex_仪表板：
方向：列
垂直布局：填充
---
```{r设置，include=FALSE}
库（flexdashboard）
图书馆（DT）
```
列{数据宽度=650}
-----------------------------------------------------------------------
###图表A
```{r}
selectInput（“Tic”，“Ticker”，choices=c（“，”ALL“，as.character（iris$Species）），selected=NULL）
dateRangeInput（“日期”，“日期”，开始='2016-01-01'，结束=系统时间（），格式=“yyyy-mm-dd”）
DT：：DTOutput（'汇总表'）
输出$SUMMARY\u GENERAL\u table您需要添加一些css。请检查以下内容：

---
title: "Untitled"
runtime: shiny
output: 
  flexdashboard::flex_dashboard:
  orientation: columns
vertical_layout: fill
---

```{r setup, include=FALSE}
library(flexdashboard)
library(shiny)
library(DT)
```

Column {data-width=650}
-----------------------------------------------------------------------

### Chart A

```{r}
div(style="display:inline-block; vertical-align:top; float:right;", 
    fluidRow(
      column(width = 6, selectInput("Tic","Ticker",choices = c("", "ALL", as.character(iris$Species)), selected = NULL)),
      column(width = 6, dateRangeInput("Date","Date",start = '2016-01-01', end = Sys.time(), format = "yyyy-mm-dd"))
      ))

DT::DTOutput('SUMMARY_GENERAL_table')
output$SUMMARY_GENERAL_table <- DT::renderDT( datatable(iris) )
```

---
标题：“无标题”
运行时间：闪亮
输出：
flexdashboard:：flex_仪表板：
方向：列
垂直布局：填充
---
```{r设置，include=FALSE}
库（flexdashboard）
图书馆（闪亮）
图书馆（DT）
```
列{数据宽度=650}
-----------------------------------------------------------------------
###图表A
```{r}
div（style=“显示：内联块；垂直对齐：顶部；浮动：右侧；”，
fluidRow(
列（宽度=6，选择输入（“Tic”，“Ticker”，“choices=c”（“，“ALL”），as.character（iris$Species）），选择=NULL）），
列（宽度=6，日期范围输入（“日期”，“日期”，开始='2016-01-01'，结束=系统时间（），格式=“yyyy-mm-dd”））
))
DT：：DTOutput（'汇总表'）
输出$SUMMARY\u GENERAL\u table谢谢：），。。。。。。。。。。。