Как вставить изображение в ячейку таблицы, используя R и Shiny? - PullRequest
Новая
       59

Как вставить изображение в ячейку таблицы, используя R и Shiny?

0 голосов
/ 14 апреля 2019

Я пытаюсь создать каталог книг, и мне нужна помощь для рендеринга изображения на блеске в ячейке таблицы. Код, который я использую, приведен ниже, а вывод, который я получаю из кода в приложении блестящей, - это таблица сстолбец «изображение», но содержит ссылку на изображение в его ячейке вместо изображения. Как я могу исправить это? Пожалуйста, помогите мне URL-адрес в наборе данных имеет следующий формат: https://images.gr -assets.com / books/1447303603s/2767052.jpg

Данные выглядят следующим образом

title authors ratings_count average_rating image_url HP JK 10 4 https://images.gr-assets.com/books/1447303603s/2767052.jpg

ui <- fluidPage(

  ####Heading##
  titlePanel(div(HTML("<b> Interested In books? </b>"))),

  ###Creating tabs###
  tabsetPanel(


    ####First tab for crime####
    tabPanel(" Book Directory ",
             sidebarLayout(

               sidebarPanel(

                 #First Input##
                 selectizeInput(inputId = "Book",
                                label = " Choose a Book",
                                choices = book_names)),

               ##Output
               mainPanel = (tableOutput("View")
               )
             )
    )
  )
)



###Server app
server <- function(input, output) {
  output$View <- renderTable({
    books1 <- books[books$title%in% input$Book,]
    books1  %>% 
      mutate(image = paste0('<img src="', image_url, '"></img>')) %>%  
      select(image,title,authors,average_rating,ratings_count) 
      })
}

shinyApp(ui = ui, server = server)

1 Ответ

1 голос
/ 14 апреля 2019

Я делал что-то подобное раньше с пакетом tableHTML, фактически вы также можете добавить к нему все виды форматирования, попробуйте это, например:

Библиотеки и примеры данных 

library(tableHTML)
library(shiny)
library(dplyr)
books <- read.table(text = "title authors ratings_count average_rating        image_url
 HP     JK        10            4                https://images.gr-assets.com/books/1447303603s/2767052.jpg", header=TRUE)

books_names <- unique(books$title)

Пользовательский интерфейс (тот же пользовательский интерфейс): 

ui <- fluidPage(
  titlePanel(div(HTML("<b> Interested In books? </b>"))),
  tabsetPanel(
    tabPanel(" Book Directory ",
             sidebarLayout(
               sidebarPanel(
                 selectizeInput(inputId = "Book",
                                label = " Choose a Book",
                                choices = books_names)),
               mainPanel = (tableOutput("View"))
             )
    )
  )
)

Сервер: 

server <- function(input, output) {
  output$View <- render_tableHTML({
    books[books$title%in% input$Book,] %>% 
      mutate(image = paste0('<img src="', image_url, '"></img>')) %>%  
      select(image,title,authors,average_rating,ratings_count) %>% 
      tableHTML(escape = FALSE, 
                rownames = FALSE, 
                widths = c(40, 40, 65, 120, 120)) %>% 
      # align the text like this
      add_css_table(css = list('text-align', 'center'))
      # you can also add a theme 
      # add_theme('scientific')
  })
}

Запустите приложение: 

shinyApp(ui = ui, server = server)

Вы можете отформатировать таблицу любым способомВам нравится семейство функций add_css_..., например, add_css_table(css = list('text-align', 'center')) выравнивает текст по центру по всей таблице.

Посмотрите на виньетки пакета , чтобы увидеть другиефункции, предлагаемые пакетом

...