library(glmnet)
data(iris)
x <- model.matrix(Sepal.Length~., iris)[,-1]
y <- iris$Sepal.Length
m <- cv.glmnet(x, y)

>coef(m, m$lambda.min)
6 x 1 sparse Matrix of class "dgCMatrix"
                           1
(Intercept)        2.1670759
Sepal.Width        0.5032347
Petal.Length       0.8137398
Petal.Width       -0.3127065
Speciesversicolor -0.6763395
Speciesvirginica  -0.9595409

> nrow(coef(m, m$lambda.min)) == ncol(x) + 1
[1] TRUE