title: Make officer fpar recognize a string refer to multiple ftext objects
body: <p>I have a string with the names of a bunch of different ftext objects.</p>
  <pre><code>library(&quot;officer&quot;)
  library(&quot;stringr&quot;)
  
  itanor &lt;- fp_text(font.size = 10, italic = T, font.family = &quot;Open Sans&quot;)
  normal &lt;- fp_text(font.size = 10, font.family = &quot;Open Sans&quot;)
  
  h &lt;- &quot;Lorem ipsum _&lt;dolor&gt;_ sit amet, _&lt;lorem&gt;_ rutrum eget _&lt;nec&gt;_ hac placerat
  proin. Eget _&lt;facilisis&gt;_ ut, varius.&quot;
  h &lt;- str_replace_all(h, &quot;_(?=\\w)&quot;, &quot;_&lt;&quot;)
  h &lt;- str_replace_all(h, &quot;(?&lt;=\\w)_&quot;, &quot;&gt;_&quot;)
  h &lt;- str_split(h, &quot;_&quot;)
  &gt; h
  [[1]]
  [1] &quot;Lorem ipsum &quot;               
  [2] &quot;&lt;dolor&gt;&quot;                    
  [3] &quot; sit amet, &quot;                
  [4] &quot;&lt;lorem&gt;&quot;                    
  [5] &quot; rutrum eget &quot;              
  [6] &quot;&lt;nec&gt;&quot;                      
  [7] &quot; hac placerat\nproin. Eget &quot;
  [8] &quot;&lt;facilisis&gt;&quot;                
  [9] &quot; ut, varius.&quot;
  </code></pre>
  <p>Each one that starts with &quot;&lt;&quot; is italic and the others regular text:</p>
  <pre><code>itit &lt;- str_which(h[[1]], &quot;&lt;&quot;)
  itnot &lt;- str_which(h[[1]], &quot;&lt;&quot;, negate = TRUE)
  g &lt;- 1
  repeat{
    semsinal &lt;- gsub(&quot;&lt;|&gt;&quot;,&quot;&quot;, h[[c(1,itit[g])]])
    assign(paste0(&quot;juntar&quot;,itit[g]), (ftext(semsinal, itanor)))
    g &lt;- g +1; if(g &gt; length(itit)) {break}}
  g &lt;- 1
  repeat{
    assign(paste0(&quot;juntar&quot;,itnot[g]), (ftext(h[[c(1,itnot[g])]], normal)))
    g &lt;- g +1; if(g &gt; length(itnot)) {break}}
  gm &lt;- length(grep(&quot;juntar&quot;,objects(), value = T))
  join &lt;- c(noquote(paste0(&quot;juntar&quot;,1:gm)))
  &gt; join
  [1] juntar1 juntar2 juntar3 juntar4
  [5] juntar5 juntar6 juntar7 juntar8
  [9] juntar9
  </code></pre>
  <p>Then I need to make a single paragraph with &quot;fpar&quot; function using &quot;join&quot; object, because I'll never know how many &quot;juntar&quot; objects I'll have.</p>
  <p>I've already tried mget, but it doesn't work.</p>
  <p>The expected result is this:</p>
  <pre><code>&gt; head(fpar(juntar1,juntar2, juntar3, juntar4, juntar5, juntar6, juntar7, juntar8, juntar9))
  $chunks
  $chunks[[1]]
  text: Lorem ipsum 
  format:
    size italic  bold underlined color
  1   10  FALSE FALSE      FALSE black
        shading  fontname fontname_cs
  1 transparent Open Sans   Open Sans
    fontname_eastasia fontname.hansi
  1         Open Sans      Open Sans
    vertical_align
  1       baseline
  
  $chunks[[2]]
  text: dolor
  format:
    size italic  bold underlined color
  1   10   TRUE FALSE      FALSE black
        shading  fontname fontname_cs
  1 transparent Open Sans   Open Sans
    fontname_eastasia fontname.hansi
  1         Open Sans      Open Sans
    vertical_align
  1       baseline
  ...
  </code></pre>
  <p>but I get instead:</p>
  <pre><code>&gt; fpar(mget(join[1:9]))
  $chunks
  $chunks[[1]]
  $chunks[[1]]$juntar1
  text: Lorem ipsum 
  format:
    size italic  bold underlined color
  1   10  FALSE FALSE      FALSE black
        shading  fontname fontname_cs
  1 transparent Open Sans   Open Sans
    fontname_eastasia fontname.hansi
  1         Open Sans      Open Sans
    vertical_align
  1       baseline
  
  $chunks[[1]]$juntar2
  text: dolor
  format:
    size italic  bold underlined color
  1   10   TRUE FALSE      FALSE black
        shading  fontname fontname_cs
  1 transparent Open Sans   Open Sans
    fontname_eastasia fontname.hansi
  1         Open Sans      Open Sans
    vertical_align
  1       baseline
  ...
  </code></pre>
  <p>The same thing happens when I use a loop function and &quot;eval/parse&quot;:</p>
  <pre><code>fpar(c(sapply(join, function(x) eval(parse(text = x)), USE.NAMES = F)))
  </code></pre>
  <p>And when I use only eval/parse, I can only get the last object, but in the right way:</p>
  <pre><code>fpar(base::eval(parse(text = join)))
  </code></pre>
  <p>Could someone help me with this?</p>