41--ls( )

ls（）可以用来列出现存的所有对象。
pattern是一个具名参数，可以列出所有名称中含有字符串“s”的对象。

> ls()
[1] "s"
> ls(pattern = "a")
character(0)
> ls(pattern = "s")
[1] "s"

42--scan（）

scan（）函数有一个可选参数what用来设定变量的模式（mode），默认为double模式。
由于文件中内容不是数值，所以出现错误。

> scan("z.txt")
Error in scan("z.txt") : scan() expected 'a real', got 'a'
> scan("z.txt", what = "")
Read 3 items
[1] "a" "b" "c"

43--cat（）

cat（）可以输出多个表达式并且输出内容不带编号。

> x <- 1:3
> cat(x, "abc", 's')
1 2 3 abc s
> cat(x, "abc", 's', sep = "\n")
1
2
3
abc
s

cat( )还可以用来写入文件

> cat(x,"\n" ,"abc", 's', file = "z.txt")

44--readline（）与readLines（）

如果想从键盘输入单行数据，readline（）函数会非常方便。
prompt为提示语参数

> w <- readline(prompt = "input a number: ")
input a number: 5
> w
[1] "5"

readLines( )可以逐行读取文件。

• 可以用file（）函数建立连接，其中“r”表示read。
• n = 1 表示一次只读取文件的一行。

> c <- file("z", "r")
> readLines(c, n = 1)
[1] "1 2 3 "
> readLines(c, n = 1)
[1] "abc s"
> readLines(c, n = 1)
character(0)

> close(c)          #用close（）来关闭连接
> readLines(c, n = 1)
Error in readLines(c, n = 1) : invalid connection

45--seek（）

seek（）可以指定文件位置开始读取数据
where = 0指把起始指针指向文件的最开头

> c <- file("z.txt", "r")
> readLines(c, n = 1)
[1] "1 2 3 "
> seek(con = c, where = 0)
[1] 8                          #返回8是指在执行命令前文件指针位于8处，回车占用两个位置
> readLines(c, n = 1)
[1] "1 2 3 "
> readLines(c, n = 1)
[1] "abc s"
> readLines(c, n = 1)
character(0)