fix: feed_from_xml should use vapply instead of sapply to make sure it does not turn into a list

fix edge cases for officedown

Author: davidgohel

DESCRIPTION

@@ -1,7 +1,7 @@
 Type: Package
 Package: officer
 Title: Manipulation of Microsoft Word and PowerPoint Documents
-Version: 0.7.2
+Version: 0.7.3.001
 Authors@R: c(
     person("David", "Gohel", , "david.gohel@ardata.fr", role = c("aut", "cre")),
     person("Stefan", "Moog", , "moogs@gmx.de", role = "aut"),

NEWS.md

@@ -1,3 +1,9 @@
+# officer 0.7.3
+
+## Issues
+
+- fix feed_from_xml for 'officedown'.  
+
 # officer 0.7.2
 
 ## Issues

R/relationship.R

@@ -18,18 +18,18 @@ relationship <- R6Class(
       children <- xml_children(doc)
       ns <- xml_ns(doc)
 
-      private$id <- c(private$id, sapply(children, xml_attr, attr = "Id", ns))
+      private$id <- c(private$id, vapply(children, xml_attr, NA_character_, attr = "Id", ns))
       private$type <- c(
         private$type,
-        sapply(children, xml_attr, attr = "Type", ns)
+        vapply(children, xml_attr, NA_character_, attr = "Type", ns)
       )
       private$target <- c(
         private$target,
-        sapply(children, xml_attr, attr = "Target", ns)
+        vapply(children, xml_attr, NA_character_, attr = "Target", ns)
       )
       private$target_mode <- c(
         private$target_mode,
-        sapply(children, xml_attr, attr = "TargetMode", ns)
+        vapply(children, xml_attr, NA_character_, attr = "TargetMode", ns)
       )
       private$ext_src <- c(private$ext_src, character(length(children)))
       self
@@ -101,6 +101,7 @@ relationship <- R6Class(
           ext_src = private$ext_src,
           stringsAsFactors = FALSE
         )
+
         data[order(data$id), ]
       }
       data