在侧边栏列上插入空格或中断 - Flexdashboard

Question

我有以下样机 flexdashboard：

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

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

    Column {.sidebar}
    -----------------------------------------------------------------------
    ```{r}
    selectInput("input_brand", "Select brand:",
                c("Wendy's" = "Wendys",
                  "Burger King" = "BurgerKing",
                  "Big Kahuna" = "BigKahuna"))
    ```


    Column
    -----------------------------------------------------------------------

    ### Chart A

    ```{r}
    plot(iris$Sepal.Length,iris$Sepal.Width)
    ```

我只想在“Select 品牌”输入上方插入一些中断。您可以在图像中看到文本靠近“无标题”栏：

Answer 1

您可以使用 HTML 函数设置中断：

先用br

Column {.sidebar}
-----------------------------------------------------------------------
```{r}
HTML("<br><br>") #each <br> is one row

selectInput("input_brand", "Select brand:",
            c("Wendy's" = "Wendys",
              "Burger King" = "BurgerKing",
              "Big Kahuna" = "BigKahuna"))   
```

第二种有保证金的方法

Column {.sidebar}
-----------------------------------------------------------------------
```{r}
div(style = "margin-top: 500px;",
selectInput("input_brand", "Select brand:",
            c("Wendy's" = "Wendys",
              "Burger King" = "BurgerKing",
              "Big Kahuna" = "BigKahuna"))
)
```

在侧边栏列上插入空格或中断 - Flexdashboard

Insert spaces or breaks on sidebar column - Flexdashboard

r

shiny

flexdashboard