如何在R Shiny Application中添加JavaScript来更改CSS文件

我正在构建一个R Shiny应用程序,有时会看到独立,有时会在另一个网页的iframe中查看.我想根据查看的位置有一个不同的.css文件,所以我需要添加一个JavaScript语句来选择正确的.css.我现在拥有的是:

ui.r

headerPanel(winowTitle="PageTitle",

list(tags$head(
tags$script('type = "text/javascript",  if(window.self === window.top) {
 tags$link(rel="stylesheet", type="text/css", href="FullSite.css")} 
 else{ tags$link(rel="stylesheet", type="text/css", href="InFrame.css"})'),

  (other stuff that works)), etc

当我运行它时应用程序工作,但它不读取.css文件.我究竟做错了什么？

谢谢