r - 如何在 ShinyWidgets 中使用 Fluent UI 图标
问题描述
我在“shinyWidgets”包中使用流畅的 UI 图标时遇到问题。
与 Fontawesome 和 Glyphicon 图标相比,tags$i()
我无法访问流畅的 UI图标checkboxGroupButtons()
如果您有任何解决方案,请告诉我。
library(shiny)
library(shiny.fluent)
ui <- fluidPage(
tags$link(rel = "stylesheet", type = "text/css", href = "https://cdnjs.cloudflare.com/ajax/libs/font-awesome/4.7.0/css/font-awesome.min.css"),
tags$link(rel = "stylesheet", type = "text/cstt", href = "https://static2.sharepointonline.com/files/fabric/office-ui-fabric-core/11.0.0/css/fabric.min.css"),
checkboxGroupButtons(
inputId = "check",
label = "Choose a graph :",
choices = c(`<i class='fa fa-bar-chart'></i>` = "bar",
`<i class='fa fa-signal'></i>` = "signal",
`<i class='fa fa-terminal'></i>` = "terminal",
`<i class="glyphicon glyphicon-tree-deciduous"></i>` = "tree",
`<i class="ms-Icon ms-Icon--Color" aria-hidden="true"></i>`= "Color"),
justified = FALSE),
verbatimTextOutput("OUT"),
span("FontIcon expression in shiny,fluent"), FontIcon(iconName = "Color"),br(),
span("glyphicon i tag"), tags$i(class="glyphicon glyphicon-tree-deciduous"),br(),
span("Fluent UI i tag :"), tags$i(class="ms-Icon ms-Icon--Color"),br(),
span("Fontawesome i tag:"), tags$i(class="fa fa-bar-chart"))
server <-function(input, output, session)
{
output$OUT <- renderText({
print(input$check)
})
}
shinyApp(ui = ui, server = server)
解决方案
删除type = "cstt"
,这有效:
library(shiny)
library(shiny.fluent)
library(shinyWidgets)
ui <- fluidPage(
tags$head(
tags$link(rel = "stylesheet", type = "text/css", href = "https://cdnjs.cloudflare.com/ajax/libs/font-awesome/4.7.0/css/font-awesome.min.css"),
tags$link(rel = "stylesheet", href = "https://static2.sharepointonline.com/files/fabric/office-ui-fabric-core/11.0.0/css/fabric.min.css")
),
checkboxGroupButtons(
inputId = "check",
label = "Choose a graph :",
choices = c(`<i class='fa fa-bar-chart'></i>` = "bar",
`<i class='fa fa-signal'></i>` = "signal",
`<i class='fa fa-terminal'></i>` = "terminal",
`<i class="glyphicon glyphicon-tree-deciduous"></i>` = "tree",
`<i class="ms-Icon ms-Icon--Color" aria-hidden="true"></i>`= "Color"),
justified = FALSE),
verbatimTextOutput("OUT"),
span("FontIcon expression in shiny,fluent"), FontIcon(iconName = "Color"),br(),
span("glyphicon i tag"), tags$i(class="glyphicon glyphicon-tree-deciduous"),br(),
span("Fluent UI i tag :"), tags$i(class="ms-Icon ms-font-xl ms-Icon--Table ms-fontColor-themePrimary"),br(),
span("Fontawesome i tag:"), tags$i(class="fa fa-bar-chart"))
server <-function(input, output, session)
{
output$OUT <- renderText({
print(input$check)
})
}
shinyApp(ui = ui, server = server)
推荐阅读
- steam-web-api - Steam API 无法更改语言
- token - 获取服务的上下文
- c++ - 是否有对 std::allocator<>-conformant 类的要求的概念?
- angular - 与 *ngFor 一起使用的角度离开动画
- python - 使用多对多字段 Django 进行搜索的最佳方式
- c - 为什么我的 C 结构声明不被识别?
- c++ - 当我想将数据从堆栈移动到向量时如何避免复制?
- php - openssl_encrypt 从不可解密的数组值创建不同的代码
- python - 为什么使用子域时无法连接到我的服务器?
- c# - Unity:列表变量数组。如何在 C# 中正确声明它