在 R Shiny 应用程序中评级星星

Question

我正在尝试向我 Shiny 的应用程序添加一些元素，以使其看起来更好。 因此，我使用新的 shiny.semantic 包，它允许以简单的方式添加语义 UI 元素。 人们可以在这里找到 Shiny 的语义元素的示例: 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)

不幸的是，评级星星没有出现在应用程序中。还有其他方法可以将此类评级星星添加到 Shiny 的应用程序中吗？

Answer 1

您需要使用 Javascript 代码进行初始化

ui.R:

library(shiny)
library(shiny.semantic)

shinyUI(semanticPage(
  shinyjs::useShinyjs(),
  div(class = "ui star rating")
))

服务器.R:

library(shiny)
library(shinyjs)
jsCode <- "
$('.ui.rating')
  .rating({
    initialRating: 3,
    maxRating: 5
  })
;
"

shinyServer(function(input, output) {
  runjs(jsCode)
})