Fixed 'format_html' for codebooks of data frames with factors.

pkg/DESCRIPTION

@@ -1,8 +1,8 @@
 Package: memisc
 Type: Package
 Title: Management of Survey Data and Presentation of Analysis Results
-Version: 0.99.16.1
-Date: 2018-10-20
+Version: 0.99.16.2
+Date: 2018-10-21
 Author: Martin Elff (with contributions from Christopher N. Lawrence, Dave Atkins, Jason W. Morgan, Achim Zeileis)
 Maintainer: Martin Elff <memisc@elff.eu>
 Description: An infrastructure for the management of survey data including

pkg/R/codebook-format-html.R

@@ -58,10 +58,8 @@ format_html.codebookEntry <- function(x,name="",
     counts_html <- formatC(tab[,1],format="d")
     counts_html <- html_td(counts_html,vectorize=TRUE,style=css(align.right,lrpad))
 
-    perc_html <- cbind(
-      formatC(tab[,2],format="f",digits=1),
-      formatC(tab[,3],format="f",digits=1)
-    )
+    perc_html <- formatC(tab[,-1,drop=FALSE],
+                         format="f",digits=1)
     perc_html[perc_html=="NA"] <- ""
 
     perc_html <- spltDec(perc_html)
@@ -160,4 +158,4 @@ format_html.codebook <- function(x,toprule=2,
                     title_tag=title_tag
                   ))
   as.character(html_div(unlist(out),class="codebook"))
-}
+}

pkg/inst/ChangeLog

@@ -1,6 +1,7 @@
 2018-10-20:
    - The 'subset' method for 'importer' objects now accepts the names of
      variables to be selected also as a character vector.
+   - Fixed 'format_html' for codebooks of data frames with factors.  
 
 2018-10-15:
    - A 'setCodeplan' and 'codeplan<-' assignment function is created that