CL function to check whether s-attribute has values

[ablaette]

We should expose this function I find in cl.h

int cl_struc_values(Attribute *attribute);

[ablaette]

In fact, this function is exposed, but it is flawed: Using it triggers loading the corpus with a different directory, see the following example.

library(polmineR)
library(RcppCWB)
use("GermaParl2")


corpus_registry_dir("GERMAPARL2MINI") # 1 registry dir

x <- corpus("GERMAPARL2MINI")
corpus_registry_dir("GERMAPARL2MINI") # 1 registry dir

cl_struc_values(
  corpus = x@corpus,
  s_attribute = "p",
  registry = x@registry_dir
)
corpus_registry_dir("GERMAPARL2MINI") # 2nd registry dir returned

[ablaette]

I think this is an issue with using normalizePath() in cl_struc_values(). See the function definition:

cl_struc_values <- function(corpus, s_attribute, registry = Sys.getenv("CORPUS_REGISTRY")){
  check_corpus(corpus = corpus, registry = registry, cqp = FALSE)
  registry <- normalizePath(path.expand(registry))
  .cl_struc_values(corpus = corpus, s_attribute = s_attribute, registry = registry)
}

On macOS, normalizePath() will happen "/private" to the path, see:

tempdir()
normalizePath(tempdir())