Add weight, cross reference in docs

R/paint.R

@@ -55,8 +55,9 @@ image_fill <- function(image, color, point = "+1+1", fuzz = 0, refcolor = NULL){
 #' for background color that annotation text is rendered on.
 #' @param font string with font family such as `"sans"`, `"mono"`, `"serif"`,
 #' `"Times"`, `"Helvetica"`, `"Trebuchet"`, `"Georgia"`, `"Palatino"` or `"Comic Sans"`.
+#' See [magick_fonts()] for what is available.
 #' @param style value of [style_types][style_types] for example `"italic"`
-#' @param weight thickness of the font, 400 is normal and 700 is bold.
+#' @param weight thickness of the font, 400 is normal and 700 is bold, see [magick_fonts()].
 #' @param kerning increases or decreases whitespace between letters
 #' @param decoration value of [decoration_types][decoration_types] for example `"underline"`
 #' @examples # Add some text to an image

src/options.cpp

@@ -33,18 +33,22 @@ Rcpp::DataFrame list_font_info(){
   Rcpp::CharacterVector name(number_fonts);
   Rcpp::CharacterVector family(number_fonts);
   Rcpp::CharacterVector glyphs(number_fonts);
+  Rcpp::IntegerVector weight(number_fonts);
   for (int i = 0; i < number_fonts; i++){
     if(type_info[i]->name)
       name[i] = type_info[i]->name;
     if(type_info[i]->family)
       family[i] = type_info[i]->family;
     if(type_info[i]->glyphs)
       glyphs[i] = type_info[i]->glyphs;
+    if(type_info[i]->weight)
+      weight[i] = type_info[i]->weight;
   }
   MagickCore::RelinquishMagickMemory((void *) type_info);
   return Rcpp::DataFrame::create(
     Rcpp::_["name"] = name,
     Rcpp::_["family"] = family,
+    Rcpp::_["weight"] = weight,
     Rcpp::_["glyphs"] = glyphs,
     Rcpp::_["stringsAsFactors"] = false
   );