... | ... |
@@ -107,7 +107,10 @@ setMethod(f="method.apply", |
107 | 107 |
for (k in 1:length(FF)) { |
108 | 108 |
if (!is.na(testlm[[1]])) { |
109 | 109 |
testhsd=tryCatch({ |
110 |
- output2[[k]]=as.data.frame(pairs(emmeans(LM,FF[[k]],data=temp))) |
|
110 |
+ output2[[k]]=as.data.frame( |
|
111 |
+ pairs( |
|
112 |
+ emmeans::emmeans(LM,FF[[k]], |
|
113 |
+ data=temp))) |
|
111 | 114 |
}, warning = function(w) { |
112 | 115 |
NA |
113 | 116 |
} , message = function(m) { |
114 | 117 |
new file mode 100644 |
... | ... |
@@ -0,0 +1,9 @@ |
1 |
+# Workaround for cmd check "no visible bindings" |
|
2 |
+# e.g. |
|
3 |
+# "chart.plot: no visible binding for global variable 'x'" |
|
4 |
+ |
|
5 |
+if(getRversion() >= "2.15.1"){ |
|
6 |
+ utils::globalVariables(c('x','y','z','Feature','Sample','Peak area', |
|
7 |
+ 'run_order','feature','group','fc','uci','xend','yend','group', |
|
8 |
+ 'lci','pairs')) |
|
9 |
+} |