Error in `vec_rank()`

[Oliviadlf]

Chocolate$Company <-Chocolate$Company...Maker.if.known.
chocolate<-select(Chocolate, Company, Cocoa.Percent, Company.Location, Rating, Broad.Bean.Origin)
Choco<-filter(chocolate, is.na(Broad.Bean.Origin)==FALSE)
Choco$Cocoa5 <- ntile(Choco$Cocoa.Variable, 5)
head(Choco)

Error in vec_rank():
! Unsupported vctrs type null.
ℹ In file type-info.c at line 189.
ℹ This is an internal error that was detected in the vctrs package.
Please report it at https://github.com/r-lib/vctrs/issues with a reprex (https://tidyverse.org/help/) and the full backtrace.
Traceback:

1. ntile(Choco$Cocoa.Variable, 5)
2. row_number(x)
3. vec_rank(x, ties = "sequential", incomplete = "na")
4. stop_internal_c_lib(file = file, line = line, call = call, message = message,
   . frame = frame)
5. abort(message, call = call, .internal = TRUE, .frame = frame)
6. signal_abort(cnd, .file)

[DavisVaughan]

Minimum reprex

vctrs::vec_rank(NULL, ties = "sequential", incomplete = "na")

compare with

vctrs::vec_rank(NULL)
#> Error: This type is not supported by `vec_order()`.

that throws a non-internal error, but still not a great one.

[DavisVaughan]

@Oliviadlf for you, you likely just made a typo because Choco$Cocoa.Variable is returning NULL, implying that column doesn't exist.