1. text

#Create a file

file.create("r.txt")

## [1] TRUE

#write iris dataset into r.txt
write.table(x = iris[1:10, ], file = "r.txt")

#rename r.txt file to r_iris.txt
file.rename(from = "r.txt", "r_iris.txt")

## [1] TRUE

#check exists file

file.exists("r_iris.txt")

## [1] TRUE

#reading a file

file_name <- "r_iris.txt"
if(file.exists(file_name)){
  content <- read.table(file_name)

  #print
  print(content)
}

##    Sepal.Length Sepal.Width Petal.Length Petal.Width Species
## 1           5.1         3.5          1.4         0.2  setosa
## 2           4.9         3.0          1.4         0.2  setosa
## 3           4.7         3.2          1.3         0.2  setosa
## 4           4.6         3.1          1.5         0.2  setosa
## 5           5.0         3.6          1.4         0.2  setosa
## 6           5.4         3.9          1.7         0.4  setosa
## 7           4.6         3.4          1.4         0.3  setosa
## 8           5.0         3.4          1.5         0.2  setosa
## 9           4.4         2.9          1.4         0.2  setosa
## 10          4.9         3.1          1.5         0.1  setosa

#list all files
list.files()

## [1] "1.-text.Rmd"   "1. text.Rmd"   "2. csv.Rmd"    "3. excel.Rmd" 
## [5] "4. Binary.Rmd" "4. Json.Rmd"   "r_iris.txt"    "working"

#Copy file

#Create a directory

dir.create("working")

## Warning in dir.create("working"): 'working' already exists

file.copy("r_iris.txt", "working")

## [1] FALSE