Визуализация таблицы Kable с изображениями в Shiny - PullRequest
Новая
       28

Визуализация таблицы Kable с изображениями в Shiny

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

Я создал отчет R Markdown HTML, в котором я использую таблицы Kable. Я пытаюсь преобразовать этот отчет в панель управления Shiny, и я заметил, что таблица Kable из отчета не отображает изображения в Shiny.

Вот как таблица отображается в Rmd:

enter image description here

Вот как таблица отображается в Shiny:

enter image description here

Это код который производит таблицы: изображения выбираются (status_image иity_image) меняются в зависимости от их значений pct_change и significant_greater_less_pvalue. 

dt_2 <- cbind(initial_medians_table(), medians_significance_df) %>%
      mutate(notes = "",
             status_image = paste("![](www/", ifelse(pct_change <= 0, "down_arrow_green", "up_arrow_red"), ".png)", sep = ""),
             significance_image = paste("![](www/", ifelse(significant_greater_less_pvalue < input$pvalue_threshold, "significant", "not_significant"), ".png)", sep = ""),
             medians_analysis = paste(medians_analysis, " mins (", round(medians_analysis/(24*60), 2), " days)", sep = ""),
             medians_baseline = paste(medians_baseline, " mins (", round(medians_baseline/(24*60), 2), "days)", sep = "")) %>%
      select(V1, V2, medians_analysis, medians_baseline, change, status_image, significance_image, notes)

И вот как я рендеринг в Shiny:

ui.R 

uiOutput("tableset")

server.R 

output$tableset <- renderUI({

    out <- kable(medians_and_significant_test(), align = rep('c', ncol(medians_and_significant_test())), escape = FALSE,
                 col.names = c("High-Level Process",
                                "Deeper-Level Process",
                                "Analysis (Median)",
                                "Baseline (Median)",
                                "% Change",
                                "Performance",
                                "Statistically Significant?",
                                "Notes")) %>%
      kable_styling(c("striped", "condensed", "hover", "responsive"), full_width = F) %>%
      kableExtra::group_rows(index = c("Level 0" = 1, "Level 1" = 3, "Level 2" = 6)) %>%
      footnote(symbol = c(paste("Significance test used:", input$sig_test_selected),
                          paste("p-value threshold used is", input$pvalue_threshold, "to test for significant"))
      )

    HTML(out)

  })

Я использую неправильную «строку» или вызов для рендеринга изображений в ячейке? Я также рад использовать DT, если кто-нибудь знает, как визуализировать изображения из папки www app в ячейке.

Заранее спасибо

...