Cómo bajar los niveles de factor mientras se raspan los datos del sitio HTML del Censo de EE.

Gracias de antemano por su ayuda. En el sitio web del Censo de los Estados Unidos (abajo), estoy buscando un elemento en la 6ª fila, 3ª columna de la 4ª tabla.

Aquí está el código que estoy escribiendo:

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)

Lo que obtengo es:

[1] 417
Levels: 417

Lo que me gustaría es:

[1] 417

¡Muchas gracias de nuevo por tu ayuda!

Respuestas a la pregunta(2)

Su respuesta a la pregunta