Sistemsko manipulisanje fajlovima i folderima

Sistemsko manipulisanje fajlovima i folderima predstavlja jedan od nezaobilaznih koraka u kreiranju efikasnog sistema za izvještavanje i modeliranje.

Zadatak: Pokrenuti R sesiju, a zatim:

1. izlistati radni direktorijum trenutne sesije;

2. izlistati sve fajlove i foldere iz radnog direktorijuma;

3. u radnom direktorijumu kreirati novi folder pod nazivom R_folder;

4. u novokreiranom folderu iz koraka 3 kreirati dva fajla pod nazivom f1.txt i f2.csv;

5. kopirati fajl f1.txt i tako kreirati novi fajl f3.txt;

6. otvoriti prozor za interaktivni odabir fajlova i selektovati fajl f2.csv.

7. izlistati naziv fajla iz apsolutne putanje iz koraka 6;

8. izlistati putanju foldera iz apsolutne putanje iz koraka 6;

9. provjeriti da li u radnom direktorijumu postoji fajl pod nazivom f3.txt i ukoliko postoji izbrisati isti;

10. izlistati datum i vrijeme kreiranja fajla f1.txt;

11. iz radnog direktorijuma izbrisati folder R_folder kreiran u koraku 2.

> #1. provjeriti radni direktorijum
> getwd()
[1] "C:/Users/adjurovic/Documents/Zbirka_zadataka"
> #2. izlistati fajlove i foldere 
> list.files()
[1] "Test1.xlsx" "Test2.txt"  "Test3.csv" 
> #3. kreirati novi folder
> dir.create("R_folder")
> list.files()
[1] "R_folder"   "Test1.xlsx" "Test2.txt"  "Test3.csv" 
> #4. kreirati f1.txt i f2.csv u R_folder folderu
> file.create(c("R_folder\\f1.txt", "R_folder\\f2.csv"))
[1] TRUE TRUE
> list.files("R_folder")
[1] "f1.txt" "f2.csv"
> #5. kopirati fajl f1.txt 
> file.copy(from = "R_folder\\f1.txt", to = "R_folder\\f3.txt")
[1] TRUE
> #6. interaktivna selekcija fajlova
> file.choose()
[1] "C:\\Users\\adjurovic\\Documents\\Zbirka_zadataka\\R_folder\\f2.csv"
> #7. izlistati naziv fajla iz apsolutne putanje
> basename("C:\\Users\\adjurovic\\Documents\\Zbirka_zadataka\\R_folder\\f2.csv")
[1] "f2.csv"
> #8. izlistati putanju foldera odabranog fajla
> dirname("C:\\Users\\adjurovic\\Documents\\Zbirka_zadataka\\R_folder\\f2.csv")
[1] "C:/Users/adjurovic/Documents/Zbirka_zadataka/R_folder"
> #9. provjeriti da li u R_folder folderu postoji fajl f3.txt i 
> #   ukoliko postoji izbrisati ga
> if(file.exists("R_folder\\f3.txt")) {
+ file.remove("R_folder\\f3.txt")
+ }
[1] TRUE
> list.files("R_folder")
[1] "f1.txt" "f2.csv"
> #10. izlistati vrijeme i datum kreiranja f1.txt fajla
> #metod 1:
> file.mtime("R_folder\\f1.txt")
[1] "2021-04-05 10:35:05 CEST"
> #metod 2:
> file.info("R_folder\\f1.txt")
                 size isdir mode               mtime               ctime               atime exe
R_folder\\f1.txt    0 FALSE  666 2021-04-05 10:35:05 2021-04-05 10:35:05 2021-04-05 10:35:05  no
> #11. izbrisati folder R_folder
> unlink("R_folder", recursive = TRUE)
> list.files()
[1] "Test1.xlsx" "Test2.txt"  "Test3.csv"