n_sampls = 50

set.seed(321)
inla_sampls_noseed = inla.posterior.sample(n=n_sampls, result=inla_result)

extract "Predictor" output

i_pred = str_c('Predictor:', str_pad(1:n, 3, 'left', '0'))
inla_sampls_noseed = inla_sampls_noseed %>%

• setNames(1:n_sampls) %>%
  

• map_df( ~ .x$latent[i_pred,1]) %>%
  

• mutate(i = 1:n) %>%
  

• gather(key='sample', value='y', -i) %>%
  

• mutate_if(is.character, as.integer)
  

Error in map():
ℹ In index: 1.
ℹ With name: 1.
Caused by error in .x$latent[i_pred, 1]:
! subscript out of bounds
Run rlang::last_error() to see where the error occurred.