回答編集履歴
2
Update
test
CHANGED
|
@@ -2,13 +2,17 @@
|
|
|
2
2
|
|
|
3
3
|
```r
|
|
4
4
|
|
|
5
|
-
|
|
5
|
+
setClass("true.false", contains=logical())
|
|
6
6
|
|
|
7
|
-
|
|
7
|
+
setAs("character", "true.false", function(from){ from != "" })
|
|
8
8
|
|
|
9
|
-
|
|
9
|
+
df <- read.csv("temp.csv", blank.lines.skip=F, colClasses = c("true.false"))
|
|
10
10
|
|
|
11
|
-
|
|
11
|
+
print(df)
|
|
12
|
+
|
|
13
|
+
|
|
14
|
+
|
|
15
|
+
#
|
|
12
16
|
|
|
13
17
|
text
|
|
14
18
|
|
1
Update
test
CHANGED
|
@@ -2,7 +2,7 @@
|
|
|
2
2
|
|
|
3
3
|
```r
|
|
4
4
|
|
|
5
|
-
> setClass("true.false")
|
|
5
|
+
> setClass("true.false", contains=logical())
|
|
6
6
|
|
|
7
7
|
> setAs("character", "true.false", function(from) { !(from == " ") })
|
|
8
8
|
|