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(shinyjs)
jsCode <- "
$('.ui.rating')
  .rating({
    initialRating: 3,
    maxRating: 5
  })
;
"

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

<强> server.R ：

MEDIA_URL = "/Media/"
MEDIA_PATH = "Media"

R闪亮应用中的评级星

1 个答案: