Как рендерить файлы TIFF в Shiny - PullRequest
Новая
       66

Как рендерить файлы TIFF в Shiny

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

Следующий скрипт представляет приложение Shiny, которое загружает файл изображения с жесткого диска пользователя и печатает его на экран: 

library(shiny)

ui <- fluidPage(
    sidebarPanel(fileInput("imported", "Import image file")),
    mainPanel(imageOutput("image"))
)
options(shiny.maxRequestSize = 100 * 1024 ^ 2) # to acommodate larger images
server <- function(input, output) {
    output$image <- renderImage({
        req(input$imported)
        list(
            src    = normalizePath(file.path(input$imported$datapath)),
            alt    = "there should be an image here",
            width  = 400,
            height = 400
        )
    })
}

shinyApp(ui, server)

Это прекрасно работает для обычных форматов изображений, таких как PNG, но если я попробую загрузить файл TIFF не удается.

Моя цель - написать приложение, которое загружает многостраничные файлы TIFF и позволяет пользователю просматривать его страницы, но я застрял даже при отображении одностраничного TIFF файл (образцы доступны здесь ).

...