latex代码转化为数学公式

Posted 2023-05-03

下载了一个WinEdt不会用？？

去http://www.ctex.org/HomePage下载CTeX_2.9.2.164_Full.exe，安装然后打开它自带的winEdt（现在应该是7.0），然后输入你要输入的latex代码，再按tex-pdf-pdftexify就可以产生pdf了，如图

参考技术A 很简单，在WinEdt的帮助菜单中或者安装包中，有个CTex FAQ文档，或者还有网上流行《一份不太简短的LATEX 2ε 介绍》这个文档，可以学习，文档很容易读懂。
PS：我这里前提是用的CTex，这个是一体的，装好之后就可以用，在WinEdt里编辑，你应该是用的这个 参考技术B 光有winedt没有任何用处，只是个编辑器而已，你需要的是tex系统，推荐ctex套装

如何在 Shiny 的 data.frame 中将列名设置为数学公式？

【中文标题】如何在 Shiny 的 data.frame 中将列名设置为数学公式？

【英文标题】：How to set column names as mathematical formulas in data.frame in Shiny?

【发布时间】：2021-10-30 09:05:42

【问题描述】：

我是 Shiny 的新手，遇到了以下问题：

我想以数学形式输出列名，这意味着，在下表中，y1---> y₁......和y_--->ȳ。我不知道这是否可行，我使用了很多方法，但我还没有找到更好的方法。

我的部分代码如下：

  yValues <- reactive(
     data.frame(
       Group=c("1"),
       y1=as.character(c(input$meansy1)),
       y2=as.character(c(input$meansy2)),
       y3=as.character(c(input$meansy3)),
       y4=as.character(c(input$meansy4)),
       y5=as.character(c(input$meansy5)),
       y6=as.character(c(input$meansy6)),
       y_=as.character(c(y_mean())),
       y.Variance=as.character(c(y_Variance())),
       stringsAsFactors=FALSE)
  )

这是现在的桌子：

【问题讨论】：

你只是想给y变量加帽子吗？

【参考方案1】：

这是使用 KaTeX 的一种方式。将您的数学代码放在两对 %% 之间。

library(shiny)

js <- " 
$(document).on('shiny:value', function(event) 
  if(event.name === 'table')
    var matches = event.value.match(/(%%+[^%]+%%)/g);
    var newvalue = event.value;
    for(var i=0; i<matches.length; i++)
      var kcode;
      var x = matches[i].slice(2,-2);
      try
        var code = '\\\\' + x;
        kcode = katex.renderToString(code)
       catch(error)
        kcode = katex.renderToString(x)
      
      newvalue = newvalue.replace(matches[i], kcode);
    
    event.value = newvalue;
  
)
" 

ui <- fluidPage(
  tags$head(
    tags$link(rel="stylesheet", href="https://cdn.jsdelivr.net/npm/katex@0.10.0-beta/dist/katex.min.css", integrity="sha384-9tPv11A+glH/on/wEu99NVwDPwkMQESOocs/ZGXPoIiLE8MU/qkqUcZ3zzL+6DuH", crossorigin="anonymous"),
    tags$script(src="https://cdn.jsdelivr.net/npm/katex@0.10.0-beta/dist/katex.min.js", integrity="sha384-U8Vrjwb8fuHMt6ewaCy8uqeUXv4oitYACKdB0VziCerzt011iQ/0TqlSlv8MReCm", crossorigin="anonymous"),
    tags$script(HTML(js))
  ),
  titlePanel("Hello Shiny!"),
  mainPanel(
    tableOutput("table")
  )
)

server <- function(input, output) 
  
  yValues <- reactive(
    data.frame(
      Group      = "1",
      "%%y_1%%"  = LETTERS[1:3],
      "%%bary%%" = letters[1:3],
      stringsAsFactors = FALSE,
      check.names = FALSE)
  )
  
  output[["table"]] <- renderTable(
    yValues()
  , rownames = TRUE)
  


shinyApp(ui, server)