光沢のあるアプリにいくつかの要素を追加して、見栄えを良くしようとしています。そのため、shiny.semanticセマンティックUI要素を簡単に追加できる新しいパッケージを使用しています。光沢のあるセマンティック要素の例はここにあります：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)
})
この記事はインターネットから収集されたものであり、転載の際にはソースを示してください。
侵害の場合は、連絡してください[email protected]
コメントを追加