R闪亮应用程序中的评级明星

本文介绍了R闪亮应用程序中的评级明星的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！ 问题描述

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