add follow_fun for athl_fun #99

NAMESPACE

@@ -21,6 +21,7 @@ export(compile_club_activities)
 export(compile_seg_effort)
 export(compile_seg_efforts)
 export(compile_segment)
+export(follow_fun)
 export(get_KOMs)
 export(get_activity)
 export(get_activity_list)

R/athlind_fun.R

@@ -34,6 +34,9 @@ athlind_fun <- function(athl_num){
 	# get athlete location
 	loc <- location_fun(prsd)
 
+	# get follower data
+	follow <- follow_fun(prsd)
+
 	# monthly data from bar plot
 	monthly <- monthly_fun(prsd)
 
@@ -50,6 +53,7 @@ athlind_fun <- function(athl_num){
 	out <- list(
 		name = name,
 		location = loc, 
+		follow = follow,
 		monthly = monthly, 
 		recent= recent,
 		trophies = trophies,

R/follow_fun.R

@@ -0,0 +1,32 @@
+#' Get athlete follow data
+#'
+#' Get athlete follow data, used internally in \code{\link{athl_fun}}
+#' 
+#' @param prsd parsed input list
+#' 
+#' @export
+#' 
+#' @concept notoken
+#' 
+#' @return  A data frame of counts of followers and following for the athlete. An empty list is returned if none found.
+follow_fun <- function(prsd){
+
+	follow <- prsd %>%
+		rvest::html_elements(".Details_followStats__Pwe6T")
+
+	if(length(follow) == 0)
+		return(list())
+
+	labs <- follow %>% 
+		rvest::html_elements(".Stat_statLabel___khR4") %>% 
+		xml2::xml_text()
+	fols <- follow %>% 
+		rvest::html_elements(".Stat_statValue__3_kAe") %>% 
+		xml2::xml_text()
+
+	out <- data.frame(matrix(fols, ncol = length(labs)))
+	names(out) <- labs
+
+	return(out)
+
+}

R/trophy_fun.R

@@ -11,7 +11,6 @@
 #' @return  A data frame of trophies for the athlete. An empty list is returned if none found.
 trophy_fun <- function(prsd){
 
-	# xml_find_all(parsed_xml, './/title')
 	trophies <- prsd %>%
 		rvest::html_elements(".Trophy_description__EcC86")