0

I'm trying to scrape data off roster data from http://stats.nba.com/team/#!/1610612742/. So far, I've tried RCurl and XML packages and the code I'v tried is as follows:

library(RCurl)
library(XML)
webpage <- getURL("http://stats.nba.com/team/#!/1610612742/")
webpage <- readLines(tc <- textConnection(webpage));
pagetree <- htmlTreeParse(webpage, useInternalNodes = TRUE)
x <- unlist(xpathApply(pagetree,"//*nba-stat-table_overflow/player",xmlValue))
Content <- gsub(pattern = "([\t\n])",
            replacement = " ", x = x, ignore.case = TRUE)

I believe that my xpathApply function is formatted wrong. What path should I give it to get to the roster table?

Stefan Zobel
  • 3,182
  • 7
  • 28
  • 38
Tim Sauchuk
  • 37
  • 6
  • It looks like the data is loaded via JavaScript in some fashion, which means you'd need to pull the HTML with something like RSelenium, which can control a browser to actually run the necessary scripts. [Here's an example.](http://stackoverflow.com/a/41497119/4497050) Of course, be sure to read the Terms and Conditions; theirs are reasonably generous, but very specific about how you can use their statistics. – alistaire Feb 18 '17 at 20:32
  • I apologize, this is just for a homework assignment on web scraping – Tim Sauchuk Feb 18 '17 at 20:36
  • No apology necessary; it's just not the easiest page to scrape. Wikipedia is an easier site to practice with. – alistaire Feb 18 '17 at 20:40

1 Answers1

1

You could do this:

require(rvest)
require(httr)
require(purrr)


ses <- html_session("http://stats.nba.com/team/#!/1610612742/",
                    user_agent("Mozilla/5.0 (Macintosh; Intel Mac OS X 10_12_3) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/56.0.2924.87 Safari/537.36"))
doc <- ses %>% jump_to("http://stats.nba.com/stats/commonteamroster?LeagueID=00&Season=2016-17&TeamID=1610612742")
res <- content(doc$response, "parsed")

res$resultSets[[1]]$rowSet %>% 
  map_df(~as.data.frame(t(.)))

#           V1   V2 V3                  V4 V5  V6   V7  V8           V9 V10 V11               V12     V13
#1  1610612742 2016 00     Justin Anderson  1 G-F  6-6 228 NOV 19, 1993  23   1          Virginia 1626147
#2  1610612742 2016 00          J.J. Barea  5   G  6-0 185 JUN 26, 1984  32  10      Northeastern  200826
#3  1610612742 2016 00        Andrew Bogut  6   C  7-0 260 NOV 28, 1984  32  11              Utah  101106

res$resultSets[[2]]$rowSet %>% 
  map_df(~as.data.frame(t(.)))

#          V1   V2        V3      V4        V5                V6                V7 V8                                     V9
#1 1610612742 2016 CAR107961    Rick  Carlisle     Rick Carlisle     rick_carlisle  1                             Head Coach
#2 1610612742 2016 HUN524472  Melvin      Hunt       Melvin Hunt       melvin_hunt  2                        Assistant Coach
#3 1610612742 2016 CAN081621   Kaleb   Canales     Kaleb Canales     kaleb_canales  2                        Assistant Coach

How did i find this:

I inspected all the XHR calls that the website made and found that it needs a session (thats why i create one using html_session) and set a user agent (not sure this is really required...) without the UA my request got stuck for >30 sec...

enter image description here

enter image description here

Rentrop
  • 20,979
  • 10
  • 72
  • 100