我想开发一个闪亮的应用程序，看起来像一个带有水平标签的页面（每个标签都有不同的可视化效果，表格等）。首先，我知道有像tabsetPanel这样的闪亮函数，但我想在外观，过渡等方面有更多的控制和灵活性。另外，我想以这种方式组织我的代码：

server.R
ui.R
www/index.html
www/script.js
www/style.css

我想使用this example page作为模板，main.css和script.js文件与步骤2和步骤3中的相同，这是index.html：

<!-- Tab links -->

<link rel="stylesheet" href="main.css">
<script src="script.js"></script>

<div class="tab">
    <button class="tablinks" onclick="openCity(event, 'London')">London</button>
    <button class="tablinks" onclick="openCity(event, 'Paris')">Paris</button>
    <button class="tablinks" onclick="openCity(event, 'Tokyo')">Tokyo</button>
  </div>
  
  <!-- Tab content -->
  <div id="London" class="tabcontent">
    <h3>London</h3>
    <p>{{slider}}</p>
  </div>
  ...

我试图将此模板包含到此Shiny：

服务器.R

library(shiny)
function(input, output, session) {}

依.R

htmlTemplate("www/index.html",
             slider = sliderInput("x", "X", 1, 100, 50)
)

但当我运行应用程序时，它是这样的：（那应该是一个滑块！）

我想知道为什么会这样，我必须做什么。谢谢你的建议。