Внешний JS для математического режима в блестящих столах - PullRequest
Новая
       28

Внешний JS для математического режима в блестящих столах

0 голосов
/ 27 марта 2019

Этот вопрос относится к этому .

EDIT

Я переформулировал вопрос, чтобы воспроизвести проблему в более сложном приложении.

Я пытаюсь включить математический режим в таблицы. Решение @ Stéphane Laurent с использованием katex в EDIT 2 работает отлично. Я отредактировал код, так как мое приложение содержит множество таблиц, имена которых включают строку coef_. 

library(shiny)

js <- " 
$(document).on('shiny:value', function(event) {
if(event.name.indexOf(event.name.match(/\\b\\w*coef_\\w+\\b/g)) > -1){
if(event.value.match(/(%%+[^%]+%%)/g) !== null) {
var matches = event.value.match(/(%%+[^%]+%%)/g);
var newvalue = event.value;
for(var i=0; i<matches.length; i++){
var code = '\\\\' + matches[i].slice(2,-2);
newvalue = newvalue.replace(matches[i], katex.renderToString(code));
}
event.value = newvalue;
} else {
event.value;
}
}
});
"

Если имя таблицы не содержит строку coef_ или n, если таблица с именем, содержащим строку coef_, не содержит термины с %%, js не должно на нее влиять. 

# UI 1
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(
    numericInput("mean", "Enter mean", value = 1),
    tableOutput("coef_table1"),
    tableOutput("coef_table2"),
    tableOutput("table")
  ))

# SERVER
server <- function(input, output) {

  output$table <- renderTable({
    x <- rnorm(2)
    y <- rnorm(2, input$mean)
    tab <- data.frame(x = x, y = y, z = c("hello", "%%gamma%%%%delta%%"))
    rownames(tab) <- c("%%alpha%%", "%%beta%%")
    tab
  }, rownames = TRUE)

}

Однако, когда я создаю js-файл с кодом в переменной js, сохраняю его в папке www и загружаю его, он не работает: 

# UI 2
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(src="math_in_tables.js")
  ),
  titlePanel("Hello Shiny!"),
  mainPanel(
    numericInput("mean", "Enter mean", value = 1),
    tableOutput("coef_table1"),
    tableOutput("coef_table2"),
    tableOutput("table")
  ))

Математический режим больше не работает в первой таблице. Что мне здесь не хватает? В браузере нет ошибок.

1 Ответ

1 голос
/ 28 марта 2019

Я думаю, что if(event.name.indexOf(event.name.match(/\\b\\w*coef_\\w+\\b/g)) > -1) неверно.

Кто-то хочет проверить, содержит ли event.name строку coef_.Я не владею регулярными выражениями, но это должно работать: 

if((/\\b\\w*coef_\\w*\\b/g).test(event.name)){ ...

Если вы поместите код JS во внешний файл, используйте одинарные обратные слеши: 

if((/\b\w*coef_\w*\b/g).test(event.name)){ ...

(и var code = '\\' + matches[i].slice(2,-2);).

...