From 7642a23eebffcbd8acf13f57986c672fa1c8bb22 Mon Sep 17 00:00:00 2001 From: Joe Cheng Date: Mon, 18 Nov 2019 14:42:29 -0800 Subject: [PATCH] Small fixes to bs3-navs tests --- test-apps/bs3-navs/app.R | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/test-apps/bs3-navs/app.R b/test-apps/bs3-navs/app.R index aec5f7437..0426dc8a2 100644 --- a/test-apps/bs3-navs/app.R +++ b/test-apps/bs3-navs/app.R @@ -135,7 +135,7 @@ ui <- fluidPage( h4("bs3 navbarPage (inverse)"), helpText("(Fixed to bottom of page)"), do.call(navbarPage, rlang::list2( - "bs4 navbarPage (inverse)", inverse = TRUE, position = "fixed-bottom", + "bs3 navbarPage (inverse)", inverse = TRUE, position = "fixed-bottom", !!!make_bs3_tabs() )), @@ -149,16 +149,16 @@ ui <- fluidPage( h4("bs4 navbar (dark)"), tags$nav(class="navbar navbar-expand-sm navbar-dark bg-dark", tags$a(class="navbar-brand", href="#", "Navbar"), - make_bs4_tabs("bs4nav", "navbar-nav mr-auto"), + make_bs4_tabs("bs4navdark", "navbar-nav mr-auto"), ), - make_bs4_tab_contents("bs4nav"), + make_bs4_tab_contents("bs4navdark"), h4("bs4 navbar (.bg-success)"), tags$nav(class="navbar navbar-expand-sm navbar-dark bg-success", tags$a(class="navbar-brand", href="#", "Navbar"), - make_bs4_tabs("bs4nav", "navbar-nav mr-auto"), + make_bs4_tabs("bs4navsuccess", "navbar-nav mr-auto"), ), - make_bs4_tab_contents("bs4nav"), + make_bs4_tab_contents("bs4navsuccess"), h4("bs3 rmarkdown site navbar"), p(class = "text-center", "(pinned to top of page)"),