Reduce output content of codebook()?

[melff]

Reduce output content of codebook()?

[melff]

D4ff, thanks for your feedback.

The information you mention is the amount of information that social scientists usually require of a published survey data set. Without it a codebook would be almost empty. I wonder for what purposes do you need codebook() anyway? If there is "popular demand" for such a set of information I would implement the appropriate function in R.

On the other hand, I suppose that the output of codebook() is sufficiently regular to allow for some post processing by a Ruby or Python script.

[DiogoFerrari]

Here is a suggestion using tibble (you need tidyverse and magrittr). The parameter x below receives the output of the function memisc::spss.system.file():

get.cb <- function(x)
{
    options(warn=-1)
    on.exit(options(warn=0))
    ## Debug/Monitoring message --------------------------
    msg <- paste0('\n','Creating codebook ...',  '\n'); cat(msg)
    ## ---------------------------------------------------
    tab = memisc::codebook(x) %>% 
        tibble::data_frame(var      = names(.),
                           desc     = purrr::map_chr([email protected], function(.x) .x@[email protected]) %>% stringr::str_trim(.),
                           coding = [email protected]) %>%
        dplyr::mutate(coding = purrr::map(.x=coding, function(.x) get.cb.labels(.x)) ) %>%
        dplyr::select(var, desc, coding) 
    return(tab)
}

[melff]

Since release 0.99.16 there is a function codeplan() which produces a data frame with information about variable labels, value labels, etc. It should be easy to select rows and columns from such a data frame. Is this something you were thinking of?