if (FALSE) {
w_isValid(c("Q9021", "Q115637688", "Q105660123"))
# Large list
l <- w_SearchByOccupation(Qoc='Q2306091')
l2 <- append(l$entity, c("Q115637688", "Q105660123")) # Note: adding two new entities
v <- w_isValid(l2)
# Not valid
v[!v$valid, ]
}
Run the code above in your browser using DataLab