Question

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

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

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

这里的示例代码：

Ui.R：

repositories

Server.R：

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

问题是，如果我将它们放在渲染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({});"))
    )
  })

renderUI中闪亮的语义Ui元素

1 个答案: