Вставьте изображение в таблицу данных рядом с текстом в блестящем - PullRequest
Новая
       11

Вставьте изображение в таблицу данных рядом с текстом в блестящем

0 голосов
/ 05 февраля 2019

Я работаю с этим примером набора данных хоккея (pbp_game_id): 

structure(list(home_team = c("WPG", "PIT", "EDM", "S.J", "BOS", 
"BUF", "NYR", "OTT", "DET", "CHI"), away_team = c("TOR", "STL", 
"CGY", "PHI", "NSH", "MTL", "COL", "WSH", "MIN", "PIT")), class = c("tbl_df", 
"tbl", "data.frame"), row.names = c(NA, -10L))

Допустим, я хочу вставить логотипы хоккейной команды прямо рядом с этими символами, как в этом примере: enter image description here

У меня есть вектор URL-адресов, которые содержат логотипы команды 31: 

c("http://www.capsinfo.com/images/NHL_Team_Logos/NHL_Ducks_Primary.png", 
"http://www.capsinfo.com/images/NHL_Team_Logos/NHL_Coyotes_Primary.png", 
"http://www.capsinfo.com/images/NHL_Team_Logos/NHL_Bruins_Primary.png", 
"http://www.capsinfo.com/images/NHL_Team_Logos/NHL_Sabres_Primary.png", 
"http://www.capsinfo.com/images/NHL_Team_Logos/carolina.png", 
"http://www.capsinfo.com/images/NHL_Team_Logos/NHL_BlueJackets_Primary.png", 
"http://www.capsinfo.com/images/NHL_Team_Logos/calgary.png", 
"http://www.capsinfo.com/images/NHL_Team_Logos/chicago.png", 
"http://www.capsinfo.com/images/NHL_Team_Logos/colorado.png", 
"http://www.capsinfo.com/images/NHL_Team_Logos/NHL_Stars_Primary.png", 
"http://www.capsinfo.com/images/NHL_Team_Logos/detroit.png", 
"http://www.capsinfo.com/images/NHL_Team_Logos/NHL_Oilers_Primary.png", 
"http://www.capsinfo.com/images/NHL_Team_Logos/NHL_Panthers_Primary.png", 
"http://www.capsinfo.com/images/NHL_Team_Logos/NHL_Kings_Primary.png", 
"http://www.capsinfo.com/images/NHL_Team_Logos/NHL_Wild_Primary.png", 
"http://www.capsinfo.com/images/NHL_Team_Logos/montreal.png", 
"http://www.capsinfo.com/images/NHL_Team_Logos/newjersey.png", 
"http://www.capsinfo.com/images/NHL_Team_Logos/NHL_Predators_Primary.png", 
"http://www.capsinfo.com/images/NHL_Team_Logos/NY-Islanders-Primary.png", 
"http://www.capsinfo.com/images/NHL_Team_Logos/newyorkr.png", 
"http://www.capsinfo.com/images/NHL_Team_Logos/NHL_Senators_Primary.png", 
"http://www.stickpng.com/assets/images/5a4fbba3da2b4f099b95da1a.png", 
"http://www.capsinfo.com/images/NHL_Team_Logos/NHL_Penguins_Primary.png", 
"http://www.capsinfo.com/images/NHL_Team_Logos/NHL_Sharks_Primary.png", 
"http://www.capsinfo.com/images/NHL_Team_Logos/stlouis.png", 
"http://www.capsinfo.com/images/NHL_Team_Logos/NHL_Lightning_Primary.png", 
"http://www.capsinfo.com/images/NHL_Team_Logos/NHL_MapleLeafs_Primary.png", 
"http://www.capsinfo.com/images/NHL_Team_Logos/Vancouver_Canucks.png", 
"https://upload.wikimedia.org/wikipedia/en/thumb/a/ac/Vegas_Golden_Knights_logo.svg/184px-Vegas_Golden_Knights_logo.svg.png", 
"http://www.capsinfo.com/images/NHL_Team_Logos/NHL_Jets_Primary.png", 
"http://www.capsinfo.com/images/NHL_Team_Logos/NHL_Capitals_Primary.png"
)

Я пытался вставить URL-адрес рядом с текстом: 

pbp_game_id %>%
   mutate(home_team = case_when(
    home_team == "ANA" ~ paste(team_logo[1], home_team),
    ...)

Скелетный пользовательский интерфейс 

fluidRow(...
         column(4,
           DT::dataTableOutput("game_id_table"))

Сервер 

 # Game ID Table
  output$game_id_table <- DT::renderDataTable({

    DT::datatable(pbp_game_id, extensions = "Scroller",
                  filter = "top", options = list(
                    deferRender = TRUE,
                    scrollY = 200,
                    scroller = TRUE
                  ),
                  rownames = FALSE,
                  colnames = c("Game ID",
                               "Game Date",
                               "Home",
                               "Away")
    )

Я не вижу изображений, отображаемых в моем файле данных.Я просто вижу простой URL ... Что мне не хватает?

...