Hi Experts here. I have edited this question because I found a way that is similar to what I wanted. But one thing in the below sample, under performance tab, Can I make the ggplot appear adjacent to the table ? (Similar like this)
Below is the sample code
---
title: "Untitled"
output:
flexdashboard::flex_dashboard:
orientation: rows
vertical_layout: scroll
runtime: shiny
source_code: embed
theme: cosmo
storyboard: TRUE
---
```{r setup, include=FALSE}
library(flexdashboard)
library(readxl)
library(tidyverse)
library(ggplot2)
library(shiny)
library(knitr)
library(kableExtra)
```
```{r}
dt <- mtcars[1:5, 1:6]
Performance <- structure(list(Mills = c("Mill-A", "Mill-B", "Mill-C", "Mill-D",
"Mill-E"), Performance = c(0.5, 0.4, 0.2, 0.9, 0.4)), row.names = c(NA,
-5L), class = "data.frame")
```
Summary
=================
Inputs {.sidebar}
-----------------------------------------------------------------------
```{r}
```
Column {data-width=300}
-----------------------------------------------------------------------
### Chart A
```{r}
```
Row {.tabset .tabset-fade}
-----------------------------------------------------------------------
### Performance {data-height=2000}
```{r}
dt %>%
kable() %>%
kable_styling()
ggplot(data = Performance,aes(x=Mills,y=Performance))+geom_bar(stat = "identity")
```
### Parameters {data-height=1000}
```{r}
```
Forecasting
=================
Inputs {.sidebar}
-----------------------------------------------------------------------
```{r}
```
Column {data-height=1000}
-----------------------------------------------------------------------
### Chart A
```{r}
```