predict.r

[Turius]

I think I found the source of the issue with predict_h_index()

h <- get_profile(id) if (is.na(h)) return(NA) h <- h$h_index

could be revised to:

h <- get_profile(id)$h_index if (is.na(h)) return(NA)

I tried locally and it works with this modification