title: How to unnest samples from a fable R forecast model
body: <p>I am trying to get the samples from a forecast model generated with <code>fable</code>. This is what I tried</p>
  <pre><code>library(fable)
  library(tsibble)
  library(tsibbledata)
  library(dplyr)
  library(tidyr)
  
  # Forecasting with an ETS(M,Ad,A) model to Australian beer production
  beer_fc &lt;- aus_production %&gt;%
    model(ets = ETS(log(Beer) ~ error(&quot;M&quot;) + trend(&quot;Ad&quot;) + season(&quot;A&quot;))) %&gt;%
    forecast(h = &quot;3 years&quot;, bootstrap=TRUE, times = 5)
  
  beer_fc %&gt;% unnest(c(Beer))
  </code></pre>
  <p>The error I get is:</p>
  <pre><code>Error: Input must be list of vectors
  </code></pre>
  <p>Here is the structure of the data <code>str(beer_fc$Beer[1])</code>:</p>
  <pre><code>&gt; str(beer_fc$Beer[1])
  dist [1:1] 
  $ :List of 3
   ..$ dist     :List of 1
   .. ..$ x: num [1:5] 6.09 6.02 6.06 6 5.95
   .. ..- attr(*, &quot;class&quot;)= chr [1:2] &quot;dist_sample&quot; &quot;dist_default&quot;
   ..$ transform:function (.x)  
   .. ..- attr(*, &quot;class&quot;)= chr &quot;transformation&quot;
   .. ..- attr(*, &quot;inverse&quot;)=function (.x)  
   ..$ inverse  :function (.x)  
   ..- attr(*, &quot;class&quot;)= chr [1:2] &quot;dist_transformed&quot; &quot;dist_default&quot;
  @ vars: chr &quot;Beer&quot;
  </code></pre>