library(rvest)
library(stringr)

link <- "https://247sports.com/college/iowa-state/Season/2017-Football/Commits?sortby=rank"

link.scrap <- read_html(link)
data <-
  html_nodes(x   = link.scrap,
             css = '#page-content > div.main-div.clearfix > section.list-page > section > section > ul.content-list.ri-list > li:nth-child(3)') %>%
  html_text(trim = TRUE) %>%
  trimws()

f<-strsplit(data,")")
str_trim(f)
[1] "c("Ray Lima  El Camino College (Torrance, CA", "         DT 6-3 310    0.8681      39 4 9       Enrolled   1/9/2017")"