If, let's say, you stored your full list of DEGs in a variable called res, you can simply do so:

#for UP DEGs with logFC threshold >= 1 and significant at adjusted p-value <= 0.05
degenes_up <- subset(res, res$padj <= 0.05 & res$log2FoldChange >= 1)

#for DOWN DEGs with logFC threshold <= -1 and significant at adjusted p-value <= 0.05
degenes_down <- subset(res, res$padj <= 0.05 & res$log2FoldChange <= -1)

Naturally, adjust the logFC threshold based on your preferences.

Ironically, this command is called order:

data(mtcars)
mtcars[order(mtcars$qsec),]

See ?order for details.