Jak obniżyć poziomy współczynników podczas zgarniania danych z witryny HTML spisu ludności

Z góry dziękuję za pomoc. Na stronie US Census (poniżej) szukam elementu w szóstym rzędzie, trzeciej kolumnie czwartej tabeli.

Oto kod, który piszę:

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)

Otrzymuję:

[1] 417
Levels: 417

Chciałbym:

[1] 417

Jeszcze raz bardzo dziękuję za pomoc!

questionAnswers(2)

yourAnswerToTheQuestion