Как отбрасывать уровни факторов при отборе данных с HTML-сайта переписи населения США

Спасибо заранее за вашу помощь. На веб-сайте переписи населения США (ниже) я ищу элемент в 6-й строке 3-го столбца 4-й таблицы.

Вот код, который я пишу:

complete_URL <- "http://quickfacts.census.gov/qfd/states/01/01011.html"
temp_TBL <- readHTMLTable(complete_URL, which=4)
business_number_vector <- temp_TBL[6,3]
print(business_number_vector)

Что я получаю это:

[1] 417
Levels: 417

Что я хотел бы это:

[1] 417

Еще раз большое спасибо за вашу помощь!

Ответы на вопрос(2)

Ваш ответ на вопрос