R 渲染元素不会显示在闪亮的选项卡中

我想在我闪亮的语义页面中添加一个选项卡集。直接在选项卡中定义的元素将显示在应用程序中，但渲染对象不会显示。这里有一个例子：

UI.R：

服务器.R:

library(shiny)
library(shinyjs)
library(shiny.semantic)
library(highlighter)
jsCode <- "
$(document).ready(function() {
$('.shape').shape();
$('#test').on('click', function(){$('.shape').shape('flip up');});
});
"

shinyServer(function(input, output) {
  runjs(jsCode)
  output$plot1 <- renderPlot(plot(1,1))

})

库（闪亮）
图书馆（shinyjs）
库（shinny.semantic）
图书馆（荧光灯）
jsCode我以前没有使用过语义ui，但我尝试过使用您的代码。我无法让它在第二个选项卡中呈现任何内容（文本或绘图）。可能内容不能来自服务器？？无论如何，还有其他方法制作选项卡：或者，如果我使用普通的tabPanel，我必须使用fluidPage和con，而不是在应用程序中包含语义元素。这就是我使用语义包的原因…我以前没有使用过语义ui，但我尝试过使用您的代码。我无法让它在第二个选项卡中呈现任何内容（文本或绘图）。可能内容不能来自服务器？？无论如何，还有其他方法制作选项卡：或者，如果我使用普通的tabPanel，我必须使用fluidPage和con，而不是在应用程序中包含语义元素。这就是我使用语义包的原因。。。
library(shiny)
library(shinyjs)
library(shiny.semantic)
library(highlighter)
jsCode <- "
$(document).ready(function() {
$('.shape').shape();
$('#test').on('click', function(){$('.shape').shape('flip up');});
});
"

shinyServer(function(input, output) {
  runjs(jsCode)
  output$plot1 <- renderPlot(plot(1,1))

})