我使用mathjax
和Shiny
来显示等式.但在我看来,输出文本的质量并不高.我如何增加dpi或输出的分辨率,这似乎是一个沉闷或透明的黑色或不是在它的全部"亮度",如果这是有意义的?
library(shiny)
library(mathjaxr)
ui <- fluidPage(
title = 'MathJax Examples',
uiOutput('ex3'))
server <- function(input, output, session){
output$ex3 <- renderUI({
withMathJax(
helpText(
"$$\\log_{10}p_w = \\frac{-1.1489t}{273.1+t}-1.330\\text{e-}05t^2 + 9.084\\text{e-}08t^3 - 1.08\\text{e-}09t^4 +\\log_{10}p_i\\\\[15pt]
\\log_{10}p_i=\\frac{-2445.5646}{273.1+t}+8.2312\\log_{10}\\left(273.1+t\\right)-0.01677006\\left(273.1+t\\right)+1.20514\\text{e-}05\\left(273.1+t\\right)^2-6.757169\\\\[15pt]
p_i=saturated\\space vapor\\space pressure\\space over\\space ice\\space \\left(mmHg\\right)$$"
))
})}
shinyApp(ui = ui, server = server)