One option is col2hsl from the plotwidgets package:
library(plotwidgets)
library(stringr)
col2hsl("#DD5802")
#> [,1]
#> H 23.5616438
#> S 0.9820628
#> L 0.4372549
col = c("221-88-2")
col = as.numeric(str_split(col, "-", simplify=TRUE))
col2hsl(rgb(col[1],col[2],col[3],maxColorValue=255))
#> [,1]
#> H 23.5616438
#> S 0.9820628
#> L 0.4372549
Created on 2020-11-05 by the reprex package (v0.3.0)