Вы можете использовать CSS для выравнивания формулы:
div.MathJax_Display{
text-align: left !important;
}
Примечание: используйте !important
, чтобы гарантировать, что параметр не перезаписан
Тогда используйте
tags$head(tags$style(HTML("...")))
чтобы вставить в него блестящее приложение.
Воспроизводимый пример:
library(shiny)
ui <- fluidPage(
titlePanel("hello"),
tags$head(
tags$style(HTML("
div.MathJax_Display{
text-align: left !important;
}
"))
),
sidebarLayout(
sidebarPanel(),
mainPanel(
uiOutput("formula")
)
)
)
server <- function(input,output){
output$formula <- renderUI({
listcat <- c("Men","Ladies")
value <- 15
withMathJax(paste0("$$\\frac{",listcat[1], "\\cap ", listcat[2],"}{",listcat[1],"} =", value,"$$"))
})
}
shinyApp(ui, server)
Обратите внимание, что Arial не поддерживается MathJax, см. Здесь: http://docs.mathjax.org/en/latest/font-support.html.