我正在尝试向我闪亮的应用程序添加一些元素,以使其看起来更好。
因此,我正在使用新的shiny.semantic
包允许以简单的方式添加语义 UI 元素。
人们可以在这里找到闪亮的语义元素的示例:http://demo.appsilondatascience.com/shiny.semantic/components/ http://demo.appsilondatascience.com/shiny.semantic/components/
我想使用以下代码添加评级星级 UI:
library(shiny)
#devtools::install_github("Appsilon/shiny.semantic")
library(shiny.semantic)
ui <- function() {
shinyUI(
semanticPage(
title = "My page",
suppressDependencies("bootstrap"),
div(class = "ui star rating")
)
)
}
server <- shinyServer(function(input, output) {
})
shinyApp(ui = ui(), server = server)
不幸的是,评级星星没有出现在应用程序中。还有其他方法可以将此类评级星星添加到闪亮的应用程序中吗?
您需要使用 Javascript 代码进行初始化
ui.R:
library(shiny)
library(shiny.semantic)
shinyUI(semanticPage(
shinyjs::useShinyjs(),
div(class = "ui star rating")
))
server.R:
library(shiny)
library(shinyjs)
jsCode <- "
$('.ui.rating')
.rating({
initialRating: 3,
maxRating: 5
})
;
"
shinyServer(function(input, output) {
runjs(jsCode)
})
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)