jquery - renderUI 中 Shiny 的语义 Ui 元素

Question

这个问题是基于我之前关于在 Shiny 的应用程序中添加 ui 语义元素的问题。这里是最近问题的链接:

Rating Stars in R shiny app , How to flip up shapes in shiny by clicking a button?

如果评级星星和形状是直接在 UI.R 中构建的，我就能够显示它们。但是，我需要在 renderUi 中使用它们，因为我有一个登录页面并使用观察 UI。

这里是示例代码:

Ui.R:

shinyUI(semanticPage(
  shinyjs::useShinyjs()
  ,uiOutput("test")))

服务器.R:

library(shiny)
library(shinyjs)
library(shiny.semantic)
library(highlighter)
jsCode <- "
$('.shape').shape();
$('.ui.rating') .rating({});
"


shinyServer(function(input, output) {
    runjs(jsCode)
    output$test <- renderUI({
      tagList(
      div(class="ui shape",
          div(class="sides",
              div(class="ui header side active","This side starts visible."),
              div(class="ui header side","This is yet another side"),
              div(class="ui header side","This is the last side"),
              div(class="ui header side",div(class="ui star rating"))
          )
      ),
      tags$button(id="test", class="ui button", "Flip", onclick="$('.shape').shape('flip up');")
      )
    })

})

问题是，如果我将评级星星放入渲染 UI 中，则评级星星不会显示在应用程序中。我该如何解决这个问题？

Answer 1

你可以这样做:

  output$test <- renderUI({
    tagList(
      div(class="ui shape",
          div(class="sides",
              div(class="ui header side active","This side starts visible."),
              div(class="ui header side","This is yet another side"),
              div(class="ui header side","This is the last side"),
              div(class="ui header side",div(class="ui star rating"))
          )
      ),
      tags$button(id="test", class="ui button", "Flip", onclick="$('.shape').shape('flip up');"), 
      tags$script(HTML("$('.ui.rating').rating({});"))
    )
  })