color argument in qhistogram is not working

[vertesy]

Description
color argument in qhistogram is not working

condiitions 2 and 3 seem nonsense:
(prob from qbarplot)

  df[["colour"]] <- if (vline & filtercol != 0) {
    if (filtercol == 1 ) (df$"value" > vline) else if (filtercol == -1 ) (df$"value" < vline)
  } else if (length(col) == length(vec)) {
    as.character(col)
  } else {
    as.character(rep(col, length(vec))[1:length(vec)])
  }

[vertesy]

Related to #33

Here’s the formatted document with the provided content, including code blocks using backticks:

### Sampling and basic qhistogram
```r
xxx <- sample(1:100, 10000, replace = TRUE)
qhistogram(xxx)

Palette works

qhistogram(xxx, palette_use = "aaas")

Color does not work

qhistogram(xxx, col = 1,
           vline = 33, filtercol = TRUE,
           suffix = "madonna", save = FALSE)

Using explicit color

qhistogram(xxx, col = "brown",
           vline = 33, filtercol = TRUE,
           suffix = "madonna", save = FALSE)

Let me know if you need further edits!