Error in create_omics_set when features metadata has only one column

In `create_omics_set` function, should replace:

```r
samples_metadata <- samples_metadata[colnames(dataset), ]
```

with 

```r
samples_metadata <- samples_metadata[colnames(dataset), , drop = FALSE]
```