Closed yonicd closed 7 years ago
cP1 works but cP2 does not
library(slickR) library(rvest) library(reshape2) library(dplyr) library(htmlwidgets) a=c("ATL","BOS","BKN","CHA","CHI","CLE","DAL","DEN","DET","GSW", "HOU","IND","LAC","LAL","MEM","MIA","MIL","MIN","NOP","NYK", "OKC","ORL","PHI","PHX","POR","SAC","SAS","TOR","UTA","WAS") teamImg=sprintf("https://i.cdn.turner.com/nba/nba/.element/img/4.0/global/logos/512x512/bg.white/svg/%s.svg",a) a1=read_html('http://www.espn.com/nba/depth')%>%html_nodes(css = '#my-teams-table a') a2=a1%>%html_attr('href') a3=a1%>%html_text() gsub('\n','',a3[grepl('\n',a3)]) team_table=read_html('http://www.espn.com/nba/depth')%>%html_table() team_table=team_table[[1]][-c(1,2),] playerTable=team_table%>%melt(,id='X1')%>%arrange(X1,variable) playerName=a2[grepl('[0-9]',a2)] playerId=do.call('rbind',lapply(strsplit(playerName,'[/]'),function(x) x[c(8,9)])) playerId=playerId[playerId[,1]!='phi',] playerTable$img=sprintf('http://a.espncdn.com/combiner/i?img=/i/headshots/nba/players/full/%s.png&w=350&h=254',playerId[,1]) cP1=JS("function(slick,index) {return '<a>'+(index+1)+'</a>';}") cP2=JS("function(slick,index) {return '<a><img src=' + x.dotImages[index] + ' width=100%></a>';}") slickR(images = playerTable$img, dotImages = teamImg, slickOpts = list(initialSlide=0, slidesToShow=5, slidesToScroll=5, focusOnSelect=T, dots=T, customPaging=cP2 )
solution from @ramnathv https://github.com/ramnathv/htmlwidgets/issues/260#issuecomment-280115602
cP1 works but cP2 does not