Можем ли мы переместить фильтр на правую сторону?

Question

Я пытаюсь переместить фильтрацию на правую сторону, но не могу. Может кто-нибудь, пожалуйста, помогите. пожалуйста, обратитесь к ожидаемому результату. Возможно ли добиться этого?

Представить ниже

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) )
```

Ожидаемый результат:

Answer 1

Вам нужно будет добавить 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) )
```