Загрузка массива символов с латексными символами в слово do c с использованием R Shiny и R markdown. Жирный и подчеркнутый шрифт не переводить на слово - PullRequest
Новая
       7

Загрузка массива символов с латексными символами в слово do c с использованием R Shiny и R markdown. Жирный и подчеркнутый шрифт не переводить на слово

0 голосов
/ 21 апреля 2020

Итак, допустим, у нас есть следующий массив символов: 

resText <- "$\\begin{split} \\ \\textbf{just} \\ \\underline{some} \\ text \\ \\end{split}$"

При использовании R Markdown с R Shiny слово «просто» не выделено жирным шрифтом, а слово «некоторые» не подчеркнуто в слове документ. Как я могу это исправить? Ниже приведен мой код файла уценки и блестящий код сервера R.

Заголовок 

title: "Summary Report" 
author: "User Name"
date: "`r format(Sys.time(), '%d %B, %Y')`"
output: word_document
fontsize: 100pt

Тело 

f1 = tempfile()
writeLines(resText(), f1)
return(knitr::asis_output(readLines(f1, encoding = 'UTF-8')) )
#note_in_md_word(resText())

Код блестящего сервера R следующий: 

 output$download <- downloadHandler(
    filename<- function() {
        paste("Summary",Sys.Date(), '.docx',sep = "")
    },
    content = function(file) {
        withProgress(
            message = 'Download in progress',
            detail = 'This may take a while...', value = 0, 
            {
                for (i in 1:15) {
                    shiny::incProgress(1/15)
                    Sys.sleep(0.01)
                }
                ## End of progression
                src <- normalizePath('summary_report_word.Rmd')           
                ## temporarily switch to the temp dir, in case you do not have write
                ## permission to the current working directory
                owd <- setwd(tempdir())
                on.exit(setwd(owd))
                file.copy(src, 'summary_report_word.Rmd', overwrite = TRUE)            
                out <- rmarkdown::render(
                    'summary_report_word.Rmd',
                    #params = list(text = resText()),
                    word_document()
                )
                file.rename(out, file)
            }
        )
    }
)
...