[FR] cat, .vcat and message

[chainsawriot]

Describe the solution you'd like

There are still a few instances of cat in the codebase, e.g.

academictwitteR/R/get_liking_users.R

Lines 29 to 48 in 56a4254

	cat(paste0("Processing ",x[i],"\n"))
	requrl <- paste0(url,x[i],endpoint)
	next_token <- ""
	while(!is.null(next_token)) {
	if(next_token!=""){
	params[["pagination_token"]] <- next_token
	}
	dat <- make_query(url = requrl, params = params, bearer_token = bearer_token, verbose = verbose)
	next_token <- dat$meta$next_token #this is NULL if there are no pages left
	new_rows <- dat$data
	new_rows$from_id <- x[i]
	new_df <- dplyr::bind_rows(new_df, new_rows) # add new rows
	cat("Total data points: ",nrow(new_df), "\n")
	Sys.sleep(1)
	if (is.null(next_token)) {
	if(verbose) {
	cat("This is the last page for ",
	x[i],
	": finishing collection. \n")

academictwitteR/R/get_user_edges.R

Lines 75 to 89 in 56a4254

	cat(paste0("Processing ",x[i],"\n"))
	next_token <- ""
	while (!is.null(next_token)) {
	requrl <- paste0(url,x[i],endpoint)
	if(next_token!=""){
	params[["pagination_token"]] <- next_token
	}
	dat <- make_query(url = requrl, params = params, bearer_token = bearer_token, verbose = verbose)
	next_token <- dat$meta$next_token #this is NULL if there are no pages left
	new_rows <- dat$data
	new_rows$from_id <- x[i]
	new_df <- dplyr::bind_rows(new_df, new_rows) # add new rows
	cat("Total data points: ",nrow(new_df), "\n")

academictwitteR/R/get_user_profile.R

Line 31 in 17dc6d9

cat(paste0("Processing from ",i," to ", end,"\n"))

Therefore, they can't control the verbosity. The helper function .vcat should be used.

NB: This instance is different because it is asking for radius

academictwitteR/R/build_queryv2.R

Lines 159 to 161 in 6c3d631

	cat("Radius must be less than 25 miles")
	z <- readline("Input new radius: ")
	zn<- as.numeric(z)

Also, according to the rOpenSci packaging guidelines, maybe it is a good idea to switch to message() instead. If all cat instances are replaced, we can simply modify .vcat to change all cat calls to message calls.

Anything else?

No response