#metoda 1 - ściągnięcie za pomocą read_file

install.packages("readr")
library("readr")
tom1 <- read_file("http://wolnelektury.pl/media/book/txt/potop-tom-pierwszy.txt")

#lub po prostu zintegrowanie wieloelementowego obiektu w jeden

tom1a <- scan("http://wolnelektury.pl/media/book/txt/potop-tom-pierwszy.txt", what = as.character(), encoding = "UTF-8")

# dostajemy wieloelementowy obiekt tekstowy
# tom1a[1200:1210]
# [1] "mają,"         "aby"           "fortuny"       "w"             "bezpieczności"
# [6] "zażywała"      "z"             "wyjątkiem"     "wsi"           "Lubicza,"
# [11] "którą"

# integrujemy go za pomoca paste()
tom1a <- paste(tom1a, collapse = " ")