4-digit SIC codes

Hi,
does anybody know whether 4-digit SIC codes are available in R? 
Something along the lines

"2834" "Pharmaceutical Preparations"

Thank you.