Latex，RenderTable in Shiny，R

Question

我只是試圖在Shiny中的表中獲得$\10^{-1}$，但它不起作用。我想下面的代碼（在此先感謝）：

ui.R：

require(shiny) 
shinyUI(tableOutput('mytable') 
) 

server.R：

require(shiny) 
shinyServer(function(input, output){ 
output$mytable <- renderTable({ 
df <- data.frame(A = c("$\\10^{-1}$", 33.1, 6),B = c(111111, 3333333, 3123.233)) 
df 
    }, sanitize.text.function = function(x) x) 
}) 

Answer 1

您可以使用mathJAX閃亮：

require(shiny) 
ui <- shinyUI(
    fluidPage(
    withMathJax() 
    , h2("$$\\mbox{My Math example }\\sqrt{2}$$") 
    , tableOutput('mytable') 
    ) 
) 
server <- function(input, output, session){ 
    output$mytable <- renderTable({ 
    df <- data.frame(A = c(HTML("$$\\alpha+\\beta$$"), 33.1, 6),B = c(111111, 3333333, 3123.233)) 
    df 
    }, sanitize.text.function = function(x) x) 
} 

shinyApp(ui = ui, server = server)