无涯教程网

Javascript 如何在bslib nav_insert之后更改导航标签的CSS类和样式

发布于03月17日

目前，对于bslib包，nav_insert()到page_navbar不会传递与常规选项卡窗格相同的CSS类，正如issue posted to the bslib Github仓库中所指出的那样.

该业务方案提供的答复如下:

library(shiny)
library(bslib)

ui <- page_navbar(
  id = 'nav',
  nav_panel('Page 1',
            card("Content 1")))

server <- function(input, output, session) {
  nav_insert(id = "nav",
             nav = nav_panel('Page 2',
                             card("Content 2")))
}

shinyApp(ui, server)

新插入的选项卡"Page 2"没有与"Page 1"选项卡相同的css类，即html-fill-item html-fill-container bslib-gap-spacing.

有没有一种方法可以在插入之后添加这些类？我试着在服务器上使用runjs($('[data-value=Page 1]').addClass('html-fill-item'))个(以及它的几个迭代)，但没有工作.

A very trivial JSFiddle demo显示了基本工作语法的概念.

推荐答案

您可以将class和style显式传递给nav_panel.

library(shiny)
library(bslib)

ui <- page_navbar(
    id = 'nav',
    nav_panel('Page 1',
              card("Content 1")))

server <- function(input, output, session) {
    nav_insert(id = "nav",
               nav = nav_panel('Page 2',
                               class = "html-fill-item html-fill-container bslib-gap-spacing",
                               style = "--bslib-navbar-margin:0;",
                               card("Content 2")))
}

shinyApp(ui, server)

Javascript相关问答推荐

我的glb文件没有加载到我的three.js文件中

RxJS setTimeout操作符等效

使用useup时，React-Redux无法找到Redux上下文值

单击更新页面的按钮后，页面刷新;测试/断言超时，有两个标题，但没有一个标题

使用下表中所示的值初始化一个二维数组

如何找出摆线表面上y与x相交的地方？

我的角模板订阅后不刷新'

Websocket错误—有一个或多个保留位开启：reserved1 = 1，reserved2 = 0，reserved3 = 0

使用Promise.All并发解决时，每个promise 的线性时间增加？

如何修复我的数据表，以使stateSave正常工作？

覆盖TypeScrip中的Lit-Element子类的属性类型

触发异步函数后不能显示数据

我想使用GAS和HTML将从Electron 表格中获得的信息插入到文本字段的初始值中

匹配一个或多个可选重复的特定模式

使用可配置项目创建网格

如何阻止外部脚本进入顶层导航

在使用JavaScript以HTML格式显示Google Drive中的图像时遇到问题

使用python，我如何判断一个html复选框是否被隐藏，以及它是否被S选中？

在HTML中使用meta标记来指定定制元数据以用于使用JavaScript进行检索是不是一个坏主意？

CSS网格使页面自动滚动

实用课程推荐

相关教程推荐