1 library(readr)
2 help(package="readr")

1 library(dplyr)
2 read.table(‘E:\\forpython\\chapters\\chap1.txt‘) %>% head()
3 read_table(‘E:\\forpython\\chapters\\chap1.txt‘) %>% head()

 1 > read.table(‘E:\\forpython\\chapters\\chap1.txt‘) %>% head()
 2 Error in scan(file = file, what = what, sep = sep, quote = quote, dec = dec,  : 
 3   line 1 did not have 2 elements
 4 > read_table(‘E:\\forpython\\chapters\\chap1.txt‘) %>% head()
 5 Parsed with column specification:
 6 cols(
 7   `第一回  甄士隐梦幻识通灵　贾雨村风尘怀闺秀` = col_character()
 8 )
 9 # A tibble: 6 x 1
10                                                                                                                                                         `第一回  甄士隐梦幻识通灵　贾雨村风尘怀闺秀`
11                                                                                                                                                                                                <chr>
12 1                                                                                             列位看官：你道此书从何而来？说起根由，虽近荒唐，细按则深有趣味。待在下将此来历注明，方使阅者了然不惑