flexdashboard icon indicating copy to clipboard operation
flexdashboard copied to clipboard

sidebars_link not working

Open habitheos01 opened this issue 2 years ago • 0 comments

Hello,

I am a new user of flexdashboard.

I am currently creating a flexdashboard and am trying to incorporate sidebars that link to other R Markdown documents. My goal is that when I render the main flexdashboard, it will simultaneously render the other dashboards saved in a subfolder called other_ dashboards. Additionally, upon pressing the sidebar buttons, I intend for the associated dashboard to open in a new page.

When I render the main dashboard, it does render the other dashboards, and the sidebar buttons do appear and are active. However, when I press these buttons, I receive a "not found" error. I have verified that the other flexdashboards are rendered and can even render them separately.

Could any one assist me with this issue?

---
title: "Dashboard"
output: 
  flexdashboard::flex_dashboard:
    theme:
      bg: "#101010"
      fg: "#FDF7F7" 
      primary: "#ED79F9"
      base_font:
        google: Prompt
      code_font:
        google: JetBrains Mono
    orientation: columns
    vertical_layout: fill
    #storyboard: True
    runtime: shiny
---
    
```{r setup, include=FALSE,echo=FALSE}
library(knitr)
library(shiny)
 library(datasets) 
library(tidyverse)
library(ggplot2)
library(openair)
library(plotly)
library(shiny)


opts_chunk$set(duplicate.label = "allow") # desebling the double chack of the chunk named 


# List of Rmd files to be rendered
rmd_files <- list(
  "./other_dashboards/map_dashboard.Rmd",
  "./other_dashboards/data_dashboard.Rmd",
  "./other_dashboards/Sensor_dashboard.Rmd"
)
# Render each Rmd file
lapply(rmd_files, rmarkdown::render)
```

Sidebar{.sidebar}
-----------------------------------------------------------------------
- [Home](./main_dashboard.html)
- [Map](/other_dashoards/map_dashboard.html)
- [Data](/other_dashboards/data_dashboard.html)
- [Sensors](/other_dashboards/Sensor_dashboard.html)

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

### Sections 1

```{r}
p<- ggplot(mydata)+
	geom_line(aes(x=date,y=no2),col= "red") + theme_bw()
ggplotly(p)
```

### Sections II

```{r}

```

Column {data-width=350}
-----------------------------------------------------------------------

### Sections  C

```{r}

```

### Sections  D

```{r}

```

habitheos01 avatar Oct 17 '23 20:10 habitheos01