Combining the first 25 elements from a data frame's column with an empty vector using the while loop

Question

I made the following code:

NovelID <- NULL

x <- 1

while(x < 25) {
  if(length(NovelID) < 25) {
    NovelID <- c(NovelID, SalesList$BookID[Sal