Настройте приложение Shiny для отображения текста mathjax как HTML Preview по умолчанию - PullRequest
Новая
       18

Настройте приложение Shiny для отображения текста mathjax как HTML Preview по умолчанию

0 голосов
/ 22 мая 2019

Я создаю панель мониторинга, используя блестящие и блестящие пакеты. Проблема, с которой я сталкиваюсь, заключается в том, что когда я пытаюсь включить математический символ, встроенный в текст, когда приложение запускается, оно всегда меньше окружающего текста. Когда приложение запустится и щелкните правой кнопкой мыши на математическом символе и перейдите к

Math Setting> Math Render> при переходе с HTML-CSS на HTML Preview он становится правильного размера. Интересно, почему это так, и как я могу сделать так, чтобы по умолчанию отображался правильный размер, чтобы пользователи не переключали предварительный просмотр HTML при запуске приложения.

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

tags$div(HTML("<script type='text/x-mathjax-config' >
                MathJax.Hub.Config({
                showProcessingMessages: true,
                jax: ['input/TeX', 'output/PreviewHTML'],
                });
                </script >
                "))

Вот базовая версия того, с чем я имею дело, когда символ Mu намного меньше, чем другой текст. 

header <- dashboardHeader(
  #Set the title and title size of the dashboard. This will be located in top left coner of app.
  title = "My Dashboard",
  titleWidth = 400
)


# Sidebar Layout
# Contains the design for collapsable sidebar of the dashboard which allows users to navigate to its differnt pages.
sidebar <- dashboardSidebar(
  sidebarMenu(
    # Each item navigates the dashboard to its corresponding page
    menuItem("Inputs", tabName = "inputs",icon = icon("angle-right"))
  )
)

#Boday Layout
# Contains the design for each indivual page listed within the side bar
body <- dashboardBody(
  withMathJax(),
  tags$div(HTML("<script type='text/x-mathjax-config' >
                MathJax.Hub.Config({
                showProcessingMessages: true,
                jax: ['input/TeX', 'output/PreviewHTML'],
                });
                </script >
                ")),
  dashboardBody(
    # TabItemS refrences theset of dashboard pages as whole
    tabItems(

      # First Pages contents
      tabItem(


        tabName = "inputs",
        h1("Here is the Problem"),
        fluidRow(
          box(width = 4,
              h3("This symobl \\(\\mu\\) is much smaller")
          )
        )
      )
    )
  )
)

  ui <- dashboardPage(header,sidebar,body)

  server <- function(input, output) {



  }

  shinyApp(ui, server)
...