Error in chol.default(Bmat) : the leading minor of order 34 is not positive definite

Question

library(CCA)
library(plyr)
head(tobacco_clr$data)

table(tobacco_clr$data)
table(tobacco_clr$H)
x <- tobacco_clr$data
dim(x)

H <- tobacco_clr$H
dim(H)
cca.tobacco <- cc(x,H)


Show this result

Error in chol.default(Bmat) : 
  the leading minor of order 34 is not positive definite

What is the Solution? Where I make mistake? Please can you solve it? In console it shows that. What code I use for this?