Использование Shiny без блестящего. - PullRequest
Новая
       0

Использование Shiny без блестящего.

0 голосов
/ 31 декабря 2018

Мне нравится Shiny, и все, что он может предложить, однако мне не нравится блестящий.Кажется, неважно, как я создаю свое приложение, оно включает в себя файлручный файл глянцевый.css, и он вступает в противоречие с другими стилями CSS, которые я объявил в главе.

Я пробовал несколько вещей.Ссылка на них в FluidPage, похоже, не опускает его.

Объявление CSS-ссылок в заголовке не игнорирует его. 

ui <- fluidPage(theme="bootstrap.css")

ИЛИ 

tags$link(type="text/CSS", href="bootstrap.css", rel="stylesheet"),

, и это с помещением файла bootstrap.css (и других) вкаталог www

каждый раз, когда я запускаю блестящее приложение, я получаю это по умолчанию для использования блестящего: 

<meta http-equiv="Content-Type" content="text/html; charset=utf-8"/>
<script type="application/shiny-singletons"></script>
<script type="application/html- dependencies">json2[2014.02.04];jquery[1.12.4];shiny[1.1.0]</script>
<script src="shared/json2-min.js"></script>
<script src="shared/jquery.min.js"></script>
<link href="shared/shiny.css" rel="stylesheet" />
<script src="shared/shiny.min.js"></script>

Я могу жить со всем остальным, я просто не хочу блестящий.cssвключены.

В моих реальных результатах не будет тега с глянцевым.css.

1 Ответ

0 голосов
/ 01 января 2019

Рассмотрите возможность использования шаблона HTML для пользовательского интерфейса, используя функцию htmlTemplate().
Таким образом, вы можете точно контролировать, какие скрипты CSS / JS включены, а какие нет.
См. Полную статью здесь: https://shiny.rstudio.com/articles/templates.html

Вот рабочий пример, который не включает shiny.css: 

library(shiny)

shinyApp(
  ui = htmlTemplate(
    text_ = '
      <html>
        <head> 
          <meta http-equiv="Content-Type" content="text/html; charset=utf-8">
            <script type="application/shiny-singletons"></script>
            <script type="application/html-dependencies">json2[2014.02.04];jquery[1.12.4];shiny[1.2.0]</script>
            <script src="shared/json2-min.js"></script>
            <script src="shared/jquery.min.js"></script>
            <script src="shared/shiny.min.js"></script>
        </head>
        <body>
          {{btn}} 
          {{txt}} 
        </body>
      </html>',
    btn = actionButton('a','a'),
    txt = textInput('b', 'b', 'b')
  ),

  server = function(input, output, session) {
    observeEvent(input$a, updateTextInput(session, 'b', 'B', 'B'))
  }
)
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.

Нет похожих вопросов

...