-
Notifications
You must be signed in to change notification settings - Fork 35
/
exercise.Rmd
75 lines (55 loc) · 1.65 KB
/
exercise.Rmd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
---
title: "R Notebook"
output: html_notebook
---
# 0. 载入包
```{r}
library(tidyverse)
library(here)
```
# 1. 读取数据
```{r}
readLines(here("data", "sub01.log")) %>%
str_detect("RT") %>%
which() -> table2_start
readLines(here("data", "sub01.log")) %>%
str_detect("Subject") %>%
which() -> table1_start
table1_end <- table2_start - 2
table2_end <- length(readLines(here("data", "sub01.log")))
raw_text <- readLines(here("data", "sub01.log"))
writeLines(raw_text[table1_start:table1_end], here("output", "sub01_table1.txt"))
```
```{r}
readLines(here("data", "sub02.log")) %>%
str_detect("RT") %>%
which() -> table2_start
readLines(here("data", "sub02.log")) %>%
str_detect("Subject") %>%
which() -> table1_start
table1_end <- table2_start - 2
table2_end <- length(readLines(here("data", "sub02.log")))
raw_text <- readLines(here("data", "sub02.log"))
writeLines(raw_text[table1_start:table1_end], here("output", "sub02_table1.txt"))
convert_logfile <- function(filename, output_name) {
readLines(here("data", filename)) %>%
str_detect("RT") %>%
which() -> table2_start
readLines(here("data", filename)) %>%
str_detect("Subject") %>%
which() -> table1_start
table1_end <- table2_start - 2
table2_end <- length(readLines(here("data", filename)))
raw_text <- readLines(here("data", filename))
writeLines(raw_text[table1_start:table1_end], here("output", output_name))
}
# 循环
convert_logfile("sub02.log", "sub02_table1.txt")
subs <- c("sub01", "sub02")
for (i in subs) {
filename <- paste0(i,".log")
output_name <- paste0(i, "_table1_new.txt")
convert_logfile(filename, output_name)
}
subs
```