install.packages('maps')

if (require('maps')){
    states_map <- map_data('state')
    str(states_map)
}