R闪亮应用程序中的评级明星 [英] Rating Stars in R shiny app

问题描述

我正试图在我闪亮的应用程序中添加一些元素，让它看起来更好。 因此，我使用的是新的shiny.semantic包，它允许以一种简单的方式添加语义UI元素。 人们可以在这里找到闪亮语义元素的例子： http://demo.appsilondatascience.com/shiny.semantic/components/

我想添加一个评级星级用户界面，代码如下：

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)

不幸的是，评分明星没有出现在应用程序中。有没有其他方法可以将这样的评级明星添加到闪亮的应用程序中？

推荐答案

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

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闪亮应用程序中的评级明星的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！