Simulate random draws with a pdf function in R

Question

I have got a (Gaussian) kernel density estimate of the following data:

x <- c(4.09, 4.46, 4.61, 4.30, 4.03, 5.22, 4.21, 4.07, 4.02, 4.58, 4.66, 4.05,