如何通过单击按钮以闪亮的形状翻转形状？

Question

我想在我的闪亮应用中包含一个语义形状元素（形状： https://semantic-ui.com/modules/shape.html#/usage)。 我可以使用shinyjs 和shiny.semantic 构造形状。 但我不知道如何创建一个通过单击来翻转形状的按钮。

这里是一个例子：

UI.R：

    library(shiny)

    # Define UI for application that draws a histogram
    shinyUI(semanticPage(
      shinyjs::useShinyjs(),

      div(class="ui text 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")
          )
      ),
 tags$button(id="test",class="ui button","Flip")

      ))

服务器.R：

library(shiny)
library(shinyjs)
#devtools::install_github("Appsilon/shiny.semantic")
library(shiny.semantic)
#devtools::install_github("Appsilon/highlighter")
library(highlighter)
jsCode <- "
$('.shape').shape();
$('.shape').shape('flip up');
$('test').shape('flip up');
"

# Define server logic required to draw a histogram
shinyServer(function(input, output) {
  runjs(jsCode)

})

这会创建按钮和形状，但是如何使按钮翻转形状？

Answer 1

我认为你需要这个 JS 代码：

jsCode <- "
$('.shape').shape();
$('#test').on('click', function(){$('.shape').shape('flip up');});
"

或者只是：

jsCode <- "
    $('.shape').shape();
    "

在用户界面中：

  tags$button(id="test", class="ui button", "Flip", onclick="$('.shape').shape('flip up');")