在 R shiny 应用程序中对星星进行评级

Question

我正在尝试向我闪亮的应用程序添加一些元素以使其看起来更好。因此，我正在使用新的 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)

很遗憾，应用中未显示评分星级。还有另一种方法可以将此类评级星添加到闪亮的应用程序中吗？

Answer 1

您需要使用 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)
})

在 R shiny 应用程序中对星星进行评级

Rating Stars in R shiny app

r

shiny

semantic-ui