This is the template to start with bs4Dash:
library(shiny)
library(bs4Dash)
shiny::shinyApp(
ui = bs4DashPage(
navbar = bs4DashNavbar(),
sidebar = bs4DashSidebar(),
controlbar = bs4DashControlbar(),
footer = bs4DashFooter(),
title = "Basic Dashboard",
body = bs4DashBody()
),
server = function(input, output) {}
)
Feed it according to your needs!