[inst/site/classifier_test.R:9:1:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/classifier_test.R#L9) *style:* **lines should not be more than 100 characters.**
```r
cylinder <- manyseries_to_wordbag(CBF[["data_train"]][CBF[["labels_train"]] == 1,], w, p, a, "exact", 0.01)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/site/classifier_test.R:9:82:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/classifier_test.R#L9) *style:* **Commas should always have a space after.**
```r
cylinder <- manyseries_to_wordbag(CBF[["data_train"]][CBF[["labels_train"]] == 1,], w, p, a, "exact", 0.01)
                                                                                ^
```
[inst/site/classifier_test.R:10:1:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/classifier_test.R#L10) *style:* **lines should not be more than 100 characters.**
```r
bell <- manyseries_to_wordbag(CBF[["data_train"]][CBF[["labels_train"]] == 2,], w, p, a, "exact", 0.01)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/site/classifier_test.R:10:78:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/classifier_test.R#L10) *style:* **Commas should always have a space after.**
```r
bell <- manyseries_to_wordbag(CBF[["data_train"]][CBF[["labels_train"]] == 2,], w, p, a, "exact", 0.01)
                                                                             ^
```
[inst/site/classifier_test.R:11:1:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/classifier_test.R#L11) *style:* **lines should not be more than 100 characters.**
```r
funnel <- manyseries_to_wordbag(CBF[["data_train"]][CBF[["labels_train"]] == 3,], w, p, a, "exact", 0.01)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/site/classifier_test.R:11:80:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/classifier_test.R#L11) *style:* **Commas should always have a space after.**
```r
funnel <- manyseries_to_wordbag(CBF[["data_train"]][CBF[["labels_train"]] == 3,], w, p, a, "exact", 0.01)
                                                                               ^
```
[inst/site/classifier_test.R:15:7:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/classifier_test.R#L15) *style:* **Use <-, not =, for assignment.**
```r
tfidf = bags_to_tfidf( list("cylinder" = cylinder, "bell" = bell, "funnel" = funnel) )
      ^
```
[inst/site/classifier_test.R:19:18:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/classifier_test.R#L19) *style:* **Use <-, not =, for assignment.**
```r
labels_predicted = rep(-1, length(CBF[["labels_test"]]))
                 ^
```
[inst/site/classifier_test.R:20:13:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/classifier_test.R#L20) *style:* **Use <-, not =, for assignment.**
```r
labels_test = CBF[["labels_test"]]
            ^
```
[inst/site/classifier_test.R:21:11:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/classifier_test.R#L21) *style:* **Use <-, not =, for assignment.**
```r
data_test = CBF[["data_test"]]
          ^
```
[inst/site/classifier_test.R:22:33:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/classifier_test.R#L22) *style:* **Commas should always have a space after.**
```r
for (i in c(1:length(data_test[,1]))) {
                                ^
```
[inst/site/classifier_test.R:23:10:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/classifier_test.R#L23) *style:* **Use <-, not =, for assignment.**
```r
  series = data_test[i,]
         ^
```
[inst/site/classifier_test.R:23:24:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/classifier_test.R#L23) *style:* **Commas should always have a space after.**
```r
  series = data_test[i,]
                       ^
```
[inst/site/classifier_test.R:24:7:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/classifier_test.R#L24) *style:* **Use <-, not =, for assignment.**
```r
  bag = series_to_wordbag(series, w, p, a, "exact", 0.01)
      ^
```
[inst/site/classifier_test.R:25:11:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/classifier_test.R#L25) *style:* **Use <-, not =, for assignment.**
```r
  cosines = cosine_sim(list("bag"=bag, "tfidf" = tfidf))
          ^
```
[inst/site/classifier_test.R:25:34:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/classifier_test.R#L25) *style:* **Put spaces around all infix operators.**
```r
  cosines = cosine_sim(list("bag"=bag, "tfidf" = tfidf))
                                ~^~
```
[inst/site/classifier_test.R:26:23:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/classifier_test.R#L26) *style:* **Use <-, not =, for assignment.**
```r
  labels_predicted[i] = which(cosines$cosines == max(cosines$cosines))
                      ^
```
[inst/site/classifier_test.R:31:7:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/classifier_test.R#L31) *style:* **Use <-, not =, for assignment.**
```r
error = length(which((labels_test != labels_predicted))) / length(labels_test)
      ^
```
[inst/site/classifier_test.R:31:22:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/classifier_test.R#L31) *style:* **Place a space before left parenthesis, except in a function call.**
```r
error = length(which((labels_test != labels_predicted))) / length(labels_test)
                     ^
```
[inst/site/classifier_test.R:36:7:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/classifier_test.R#L36) *style:* **Place a space before left parenthesis, except in a function call.**
```r
which((labels_test != labels_predicted))
      ^
```
[inst/site/density_curve_test.R:7:3:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/density_curve_test.R#L7) *style:* **Use <-, not =, for assignment.**
```r
df=data.frame(time=c(1:length(ecg)),value=ecg)
  ^
```
[inst/site/density_curve_test.R:7:3:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/density_curve_test.R#L7) *style:* **Put spaces around all infix operators.**
```r
df=data.frame(time=c(1:length(ecg)),value=ecg)
 ~^~
```
[inst/site/density_curve_test.R:7:19:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/density_curve_test.R#L7) *style:* **Put spaces around all infix operators.**
```r
df=data.frame(time=c(1:length(ecg)),value=ecg)
                 ~^~
```
[inst/site/density_curve_test.R:7:37:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/density_curve_test.R#L7) *style:* **Commas should always have a space after.**
```r
df=data.frame(time=c(1:length(ecg)),value=ecg)
                                    ^
```
[inst/site/density_curve_test.R:7:42:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/density_curve_test.R#L7) *style:* **Put spaces around all infix operators.**
```r
df=data.frame(time=c(1:length(ecg)),value=ecg)
                                        ~^~
```
[inst/site/density_curve_test.R:8:51:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/density_curve_test.R#L8) *style:* **Put spaces around all infix operators.**
```r
p1 <- ggplot(df, aes(time, value)) + geom_line(lwd=1.1,color="blue1") + theme_classic() +
                                                 ~^~
```
[inst/site/density_curve_test.R:8:56:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/density_curve_test.R#L8) *style:* **Commas should always have a space after.**
```r
p1 <- ggplot(df, aes(time, value)) + geom_line(lwd=1.1,color="blue1") + theme_classic() +
                                                       ^
```
[inst/site/density_curve_test.R:8:61:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/density_curve_test.R#L8) *style:* **Put spaces around all infix operators.**
```r
p1 <- ggplot(df, aes(time, value)) + geom_line(lwd=1.1,color="blue1") + theme_classic() +
                                                           ~^~
```
[inst/site/density_curve_test.R:11:40:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/density_curve_test.R#L11) *style:* **Commas should always have a space after.**
```r
        axis.title.x = element_blank(),axis.title.y=element_blank(),
                                       ^
```
[inst/site/density_curve_test.R:11:52:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/density_curve_test.R#L11) *style:* **Put spaces around all infix operators.**
```r
        axis.title.x = element_blank(),axis.title.y=element_blank(),
                                                  ~^~
```
[inst/site/density_curve_test.R:12:21:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/density_curve_test.R#L12) *style:* **Put spaces around all infix operators.**
```r
        axis.ticks.y=element_blank(),axis.text.y=element_blank()) +
                   ~^~
```
[inst/site/density_curve_test.R:12:38:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/density_curve_test.R#L12) *style:* **Commas should always have a space after.**
```r
        axis.ticks.y=element_blank(),axis.text.y=element_blank()) +
                                     ^
```
[inst/site/density_curve_test.R:12:49:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/density_curve_test.R#L12) *style:* **Put spaces around all infix operators.**
```r
        axis.ticks.y=element_blank(),axis.text.y=element_blank()) +
                                               ~^~
```
[inst/site/density_curve_test.R:13:17:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/density_curve_test.R#L13) *style:* **Put spaces around all infix operators.**
```r
  geom_line(data=df[390:510,],aes(time,value),lwd=2,col="red")
               ~^~
```
[inst/site/density_curve_test.R:13:29:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/density_curve_test.R#L13) *style:* **Commas should always have a space after.**
```r
  geom_line(data=df[390:510,],aes(time,value),lwd=2,col="red")
                            ^
```
[inst/site/density_curve_test.R:13:31:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/density_curve_test.R#L13) *style:* **Commas should always have a space after.**
```r
  geom_line(data=df[390:510,],aes(time,value),lwd=2,col="red")
                              ^
```
[inst/site/density_curve_test.R:13:40:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/density_curve_test.R#L13) *style:* **Commas should always have a space after.**
```r
  geom_line(data=df[390:510,],aes(time,value),lwd=2,col="red")
                                       ^
```
[inst/site/density_curve_test.R:13:47:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/density_curve_test.R#L13) *style:* **Commas should always have a space after.**
```r
  geom_line(data=df[390:510,],aes(time,value),lwd=2,col="red")
                                              ^
```
[inst/site/density_curve_test.R:13:50:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/density_curve_test.R#L13) *style:* **Put spaces around all infix operators.**
```r
  geom_line(data=df[390:510,],aes(time,value),lwd=2,col="red")
                                                ~^~
```
[inst/site/density_curve_test.R:13:53:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/density_curve_test.R#L13) *style:* **Commas should always have a space after.**
```r
  geom_line(data=df[390:510,],aes(time,value),lwd=2,col="red")
                                                    ^
```
[inst/site/density_curve_test.R:13:56:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/density_curve_test.R#L13) *style:* **Put spaces around all infix operators.**
```r
  geom_line(data=df[390:510,],aes(time,value),lwd=2,col="red")
                                                      ~^~
```
[inst/site/density_curve_test.R:15:2:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/density_curve_test.R#L15) *style:* **Use <-, not =, for assignment.**
```r
w=100
 ^
```
[inst/site/density_curve_test.R:15:2:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/density_curve_test.R#L15) *style:* **Put spaces around all infix operators.**
```r
w=100
~^~
```
[inst/site/density_curve_test.R:16:2:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/density_curve_test.R#L16) *style:* **Use <-, not =, for assignment.**
```r
p=8
 ^
```
[inst/site/density_curve_test.R:16:2:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/density_curve_test.R#L16) *style:* **Put spaces around all infix operators.**
```r
p=8
~^~
```
[inst/site/density_curve_test.R:17:2:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/density_curve_test.R#L17) *style:* **Use <-, not =, for assignment.**
```r
a=8
 ^
```
[inst/site/density_curve_test.R:17:2:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/density_curve_test.R#L17) *style:* **Put spaces around all infix operators.**
```r
a=8
~^~
```
[inst/site/density_curve_test.R:20:35:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/density_curve_test.R#L20) *style:* **Put spaces around all infix operators.**
```r
ecg_str <- paste(ecg_sax, collapse=" ")
                                 ~^~
```
[inst/site/density_curve_test.R:23:15:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/density_curve_test.R#L23) *style:* **Use <-, not =, for assignment.**
```r
density_curve = rep(0,length(ecg))
              ^
```
[inst/site/density_curve_test.R:23:23:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/density_curve_test.R#L23) *style:* **Commas should always have a space after.**
```r
density_curve = rep(0,length(ecg))
                      ^
```
[inst/site/density_curve_test.R:24:4:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/density_curve_test.R#L24) *style:* **Place a space before left parenthesis, except in a function call.**
```r
for(i in 2:length(ecg_grammar)){
   ^
```
[inst/site/density_curve_test.R:25:8:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/density_curve_test.R#L25) *style:* **Use <-, not =, for assignment.**
```r
  rule = ecg_grammar[[i]]
       ^
```
[inst/site/density_curve_test.R:26:6:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/density_curve_test.R#L26) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  for(j in 1:length(rule$rule_interval_starts)){
     ^
```
[inst/site/density_curve_test.R:27:8:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/density_curve_test.R#L27) *style:* **Use <-, not =, for assignment.**
```r
    xs = rule$rule_interval_starts[j]
       ^
```
[inst/site/density_curve_test.R:28:8:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/density_curve_test.R#L28) *style:* **Use <-, not =, for assignment.**
```r
    xe = rule$rule_interval_ends[j] + w
       ^
```
[inst/site/density_curve_test.R:33:20:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/density_curve_test.R#L33) *style:* **Put spaces around all infix operators.**
```r
which(density_curve==min(density_curve))
                  ~^~~
```
[inst/site/density_curve_test.R:34:12:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/density_curve_test.R#L34) *style:* **Use <-, not =, for assignment.**
```r
min_values = data.frame(x=c(444:476),y=rep(0,(476-443)))
           ^
```
[inst/site/density_curve_test.R:34:26:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/density_curve_test.R#L34) *style:* **Put spaces around all infix operators.**
```r
min_values = data.frame(x=c(444:476),y=rep(0,(476-443)))
                        ~^~
```
[inst/site/density_curve_test.R:34:38:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/density_curve_test.R#L34) *style:* **Commas should always have a space after.**
```r
min_values = data.frame(x=c(444:476),y=rep(0,(476-443)))
                                     ^
```
[inst/site/density_curve_test.R:34:39:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/density_curve_test.R#L34) *style:* **Put spaces around all infix operators.**
```r
min_values = data.frame(x=c(444:476),y=rep(0,(476-443)))
                                     ~^~
```
[inst/site/density_curve_test.R:34:46:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/density_curve_test.R#L34) *style:* **Commas should always have a space after.**
```r
min_values = data.frame(x=c(444:476),y=rep(0,(476-443)))
                                             ^
```
[inst/site/density_curve_test.R:34:46:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/density_curve_test.R#L34) *style:* **Place a space before left parenthesis, except in a function call.**
```r
min_values = data.frame(x=c(444:476),y=rep(0,(476-443)))
                                             ^
```
[inst/site/density_curve_test.R:34:50:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/density_curve_test.R#L34) *style:* **Put spaces around all infix operators.**
```r
min_values = data.frame(x=c(444:476),y=rep(0,(476-443)))
                                                ~^~
```
[inst/site/density_curve_test.R:36:11:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/density_curve_test.R#L36) *style:* **Use <-, not =, for assignment.**
```r
density_df=data.frame(time=c(1:length(density_curve)),value=density_curve)
          ^
```
[inst/site/density_curve_test.R:36:11:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/density_curve_test.R#L36) *style:* **Put spaces around all infix operators.**
```r
density_df=data.frame(time=c(1:length(density_curve)),value=density_curve)
         ~^~
```
[inst/site/density_curve_test.R:36:27:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/density_curve_test.R#L36) *style:* **Put spaces around all infix operators.**
```r
density_df=data.frame(time=c(1:length(density_curve)),value=density_curve)
                         ~^~
```
[inst/site/density_curve_test.R:36:55:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/density_curve_test.R#L36) *style:* **Commas should always have a space after.**
```r
density_df=data.frame(time=c(1:length(density_curve)),value=density_curve)
                                                      ^
```
[inst/site/density_curve_test.R:36:60:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/density_curve_test.R#L36) *style:* **Put spaces around all infix operators.**
```r
density_df=data.frame(time=c(1:length(density_curve)),value=density_curve)
                                                          ~^~
```
[inst/site/density_curve_test.R:37:20:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/density_curve_test.R#L37) *style:* **Commas should always have a space after.**
```r
shade <- rbind(c(0,0), density_df, c(2229,0))
                   ^
```
[inst/site/density_curve_test.R:37:43:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/density_curve_test.R#L37) *style:* **Commas should always have a space after.**
```r
shade <- rbind(c(0,0), density_df, c(2229,0))
                                          ^
```
[inst/site/density_curve_test.R:38:13:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/density_curve_test.R#L38) *style:* **Put spaces around all infix operators.**
```r
names(shade)<-c("x","y")
           ~^~~
```
[inst/site/density_curve_test.R:38:21:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/density_curve_test.R#L38) *style:* **Commas should always have a space after.**
```r
names(shade)<-c("x","y")
                    ^
```
[inst/site/density_curve_test.R:39:31:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/density_curve_test.R#L39) *style:* **Put spaces around all infix operators.**
```r
p2 <- ggplot(density_df, aes(x=time,y=value)) +
                             ~^~
```
[inst/site/density_curve_test.R:39:37:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/density_curve_test.R#L39) *style:* **Commas should always have a space after.**
```r
p2 <- ggplot(density_df, aes(x=time,y=value)) +
                                    ^
```
[inst/site/density_curve_test.R:39:38:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/density_curve_test.R#L39) *style:* **Put spaces around all infix operators.**
```r
p2 <- ggplot(density_df, aes(x=time,y=value)) +
                                    ~^~
```
[inst/site/density_curve_test.R:40:16:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/density_curve_test.R#L40) *style:* **Put spaces around all infix operators.**
```r
  geom_line(col="cyan2") + theme_classic() +
              ~^~
```
[inst/site/density_curve_test.R:41:45:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/density_curve_test.R#L41) *style:* **Put spaces around all infix operators.**
```r
  geom_polygon(data = shade, aes(x, y), fill="cyan", alpha=0.5) +
                                           ~^~
```
[inst/site/density_curve_test.R:41:59:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/density_curve_test.R#L41) *style:* **Put spaces around all infix operators.**
```r
  geom_polygon(data = shade, aes(x, y), fill="cyan", alpha=0.5) +
                                                         ~^~
```
[inst/site/density_curve_test.R:43:1:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/density_curve_test.R#L43) *style:* **lines should not be more than 100 characters.**
```r
  theme(plot.title = element_text(size = rel(1.5)), axis.title.x = element_blank(),axis.title.y=element_blank(),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/site/density_curve_test.R:43:84:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/density_curve_test.R#L43) *style:* **Commas should always have a space after.**
```r
  theme(plot.title = element_text(size = rel(1.5)), axis.title.x = element_blank(),axis.title.y=element_blank(),
                                                                                ^
```
[inst/site/density_curve_test.R:43:96:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/density_curve_test.R#L43) *style:* **Put spaces around all infix operators.**
```r
  theme(plot.title = element_text(size = rel(1.5)), axis.title.x = element_blank(),axis.title.y=element_blank(),
                                                                                ~^~
```
[inst/site/density_curve_test.R:44:21:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/density_curve_test.R#L44) *style:* **Put spaces around all infix operators.**
```r
        axis.ticks.y=element_blank(),axis.text.y=element_blank()) +
                   ~^~
```
[inst/site/density_curve_test.R:44:38:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/density_curve_test.R#L44) *style:* **Commas should always have a space after.**
```r
        axis.ticks.y=element_blank(),axis.text.y=element_blank()) +
                                     ^
```
[inst/site/density_curve_test.R:44:49:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/density_curve_test.R#L44) *style:* **Put spaces around all infix operators.**
```r
        axis.ticks.y=element_blank(),axis.text.y=element_blank()) +
                                               ~^~
```
[inst/site/density_curve_test.R:45:17:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/density_curve_test.R#L45) *style:* **Put spaces around all infix operators.**
```r
  geom_line(data=min_values,aes(x,y),lwd=2,col="red")
               ~^~
```
[inst/site/density_curve_test.R:45:29:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/density_curve_test.R#L45) *style:* **Commas should always have a space after.**
```r
  geom_line(data=min_values,aes(x,y),lwd=2,col="red")
                            ^
```
[inst/site/density_curve_test.R:45:35:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/density_curve_test.R#L45) *style:* **Commas should always have a space after.**
```r
  geom_line(data=min_values,aes(x,y),lwd=2,col="red")
                                  ^
```
[inst/site/density_curve_test.R:45:38:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/density_curve_test.R#L45) *style:* **Commas should always have a space after.**
```r
  geom_line(data=min_values,aes(x,y),lwd=2,col="red")
                                     ^
```
[inst/site/density_curve_test.R:45:41:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/density_curve_test.R#L45) *style:* **Put spaces around all infix operators.**
```r
  geom_line(data=min_values,aes(x,y),lwd=2,col="red")
                                       ~^~
```
[inst/site/density_curve_test.R:45:44:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/density_curve_test.R#L45) *style:* **Commas should always have a space after.**
```r
  geom_line(data=min_values,aes(x,y),lwd=2,col="red")
                                           ^
```
[inst/site/density_curve_test.R:45:47:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/density_curve_test.R#L45) *style:* **Put spaces around all infix operators.**
```r
  geom_line(data=min_values,aes(x,y),lwd=2,col="red")
                                             ~^~
```
[inst/site/density_curve_test.R:48:26:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/density_curve_test.R#L48) *style:* **Put spaces around all infix operators.**
```r
grid.arrange(p1, p2, ncol=1)
                        ~^~
```
[inst/site/direct_optimizer_test.R:9:5:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/direct_optimizer_test.R#L9) *style:* **Use <-, not =, for assignment.**
```r
  w = round(x[1], digits = 0)
    ^
```
[inst/site/direct_optimizer_test.R:10:5:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/direct_optimizer_test.R#L10) *style:* **Use <-, not =, for assignment.**
```r
  p = round(x[2], digits = 0)
    ^
```
[inst/site/direct_optimizer_test.R:11:5:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/direct_optimizer_test.R#L11) *style:* **Use <-, not =, for assignment.**
```r
  a = round(x[3], digits = 0)
    ^
```
[inst/site/direct_optimizer_test.R:13:15:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/direct_optimizer_test.R#L13) *warning:* **no visible binding for global variable ‘train_labels’**
```r
  m <- length(train_labels)
              ^~~~~~~~~~~~
```
[inst/site/direct_optimizer_test.R:14:22:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/direct_optimizer_test.R#L14) *warning:* **no visible binding for global variable ‘train_labels’**
```r
  c <- length(unique(train_labels))
                     ^~~~~~~~~~~~
```
[inst/site/direct_optimizer_test.R:16:12:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/direct_optimizer_test.R#L16) *warning:* **no visible global function definition for ‘cvFolds’**
```r
  folds <- cvFolds(m, K = nfolds, type = "random")
           ^~~~~~~
```
[inst/site/direct_optimizer_test.R:16:27:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/direct_optimizer_test.R#L16) *warning:* **no visible binding for global variable ‘nfolds’, Did you mean 'folds'?**
```r
  folds <- cvFolds(m, K = nfolds, type = "random")
                          ^~~~~~
```
[inst/site/direct_optimizer_test.R:24:13:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/direct_optimizer_test.R#L24) *warning:* **no visible global function definition for ‘alply’, Did you mean 'apply'?**
```r
    bags <- alply(unique(train_labels),1,function(x){x})
            ^~~~~
```
[inst/site/direct_optimizer_test.R:24:26:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/direct_optimizer_test.R#L24) *warning:* **no visible binding for global variable ‘train_labels’**
```r
    bags <- alply(unique(train_labels),1,function(x){x})
                         ^~~~~~~~~~~~
```
[inst/site/direct_optimizer_test.R:24:40:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/direct_optimizer_test.R#L24) *style:* **Commas should always have a space after.**
```r
    bags <- alply(unique(train_labels),1,function(x){x})
                                       ^
```
[inst/site/direct_optimizer_test.R:24:42:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/direct_optimizer_test.R#L24) *style:* **Commas should always have a space after.**
```r
    bags <- alply(unique(train_labels),1,function(x){x})
                                         ^
```
[inst/site/direct_optimizer_test.R:24:53:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/direct_optimizer_test.R#L24) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
    bags <- alply(unique(train_labels),1,function(x){x})
                                                    ^
```
[inst/site/direct_optimizer_test.R:24:55:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/direct_optimizer_test.R#L24) *style:* **Closing curly-braces should always be on their own line, unless it's followed by an else.**
```r
    bags <- alply(unique(train_labels),1,function(x){x})
                                                      ^
```
[inst/site/direct_optimizer_test.R:26:19:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/direct_optimizer_test.R#L26) *warning:* **no visible binding for global variable ‘train_labels’**
```r
      ll <- which(train_labels[set_train] == unique(train_labels)[j])
                  ^~~~~~~~~~~~
```
[inst/site/direct_optimizer_test.R:26:19:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/direct_optimizer_test.R#L26) *warning:* **no visible binding for global variable ‘train_labels’**
```r
      ll <- which(train_labels[set_train] == unique(train_labels)[j])
                  ^~~~~~~~~~~~
```
[inst/site/direct_optimizer_test.R:28:71:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/direct_optimizer_test.R#L28) *style:* **Commas should always have a space after.**
```r
                  manyseries_to_wordbag( (train_data[set_train, ])[ll,], w, p, a, "exact", 0.01)
                                                                      ^
```
[inst/site/direct_optimizer_test.R:30:11:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/direct_optimizer_test.R#L30) *style:* **Use <-, not =, for assignment.**
```r
    tfidf = bags_to_tfidf( bags )
          ^
```
[inst/site/direct_optimizer_test.R:30:13:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/direct_optimizer_test.R#L30) *warning:* **no visible global function definition for ‘bags_to_tfidf’**
```r
    tfidf = bags_to_tfidf( bags )
            ^~~~~~~~~~~~~
```
[inst/site/direct_optimizer_test.R:32:22:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/direct_optimizer_test.R#L32) *style:* **Use <-, not =, for assignment.**
```r
    labels_predicted = rep(-1, length(set_test))
                     ^
```
[inst/site/direct_optimizer_test.R:33:17:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/direct_optimizer_test.R#L33) *style:* **Use <-, not =, for assignment.**
```r
    labels_test = train_labels[set_test]
                ^
```
[inst/site/direct_optimizer_test.R:33:19:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/direct_optimizer_test.R#L33) *warning:* **no visible binding for global variable ‘train_labels’**
```r
    labels_test = train_labels[set_test]
                  ^~~~~~~~~~~~
```
[inst/site/direct_optimizer_test.R:34:15:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/direct_optimizer_test.R#L34) *style:* **Use <-, not =, for assignment.**
```r
    data_test = train_data[set_test,]
              ^
```
[inst/site/direct_optimizer_test.R:34:17:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/direct_optimizer_test.R#L34) *warning:* **no visible binding for global variable ‘train_data’**
```r
    data_test = train_data[set_test,]
                ^~~~~~~~~~
```
[inst/site/direct_optimizer_test.R:34:37:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/direct_optimizer_test.R#L34) *style:* **Commas should always have a space after.**
```r
    data_test = train_data[set_test,]
                                    ^
```
[inst/site/direct_optimizer_test.R:37:10:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/direct_optimizer_test.R#L37) *style:* **Use <-, not =, for assignment.**
```r
      bag=NA
         ^
```
[inst/site/direct_optimizer_test.R:37:10:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/direct_optimizer_test.R#L37) *style:* **Put spaces around all infix operators.**
```r
      bag=NA
        ~^~
```
[inst/site/direct_optimizer_test.R:38:35:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/direct_optimizer_test.R#L38) *style:* **Put spaces around all infix operators.**
```r
      if (length(labels_predicted)>1) {
                                 ~^~
```
[inst/site/direct_optimizer_test.R:39:13:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/direct_optimizer_test.R#L39) *style:* **Use <-, not =, for assignment.**
```r
        bag = series_to_wordbag(data_test[j,], w, p, a, "exact", 0.01)
            ^
```
[inst/site/direct_optimizer_test.R:39:15:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/direct_optimizer_test.R#L39) *warning:* **no visible global function definition for ‘series_to_wordbag’**
```r
        bag = series_to_wordbag(data_test[j,], w, p, a, "exact", 0.01)
              ^~~~~~~~~~~~~~~~~
```
[inst/site/direct_optimizer_test.R:39:45:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/direct_optimizer_test.R#L39) *style:* **Commas should always have a space after.**
```r
        bag = series_to_wordbag(data_test[j,], w, p, a, "exact", 0.01)
                                            ^
```
[inst/site/direct_optimizer_test.R:41:13:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/direct_optimizer_test.R#L41) *style:* **Use <-, not =, for assignment.**
```r
        bag = series_to_wordbag(data_test, w, p, a, "exact", 0.01)
            ^
```
[inst/site/direct_optimizer_test.R:41:15:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/direct_optimizer_test.R#L41) *warning:* **no visible global function definition for ‘series_to_wordbag’**
```r
        bag = series_to_wordbag(data_test, w, p, a, "exact", 0.01)
              ^~~~~~~~~~~~~~~~~
```
[inst/site/direct_optimizer_test.R:43:15:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/direct_optimizer_test.R#L43) *style:* **Use <-, not =, for assignment.**
```r
      cosines = cosine_sim(list("bag" = bag, "tfidf" = tfidf))
              ^
```
[inst/site/direct_optimizer_test.R:43:17:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/direct_optimizer_test.R#L43) *warning:* **no visible global function definition for ‘cosine_sim’**
```r
      cosines = cosine_sim(list("bag" = bag, "tfidf" = tfidf))
                ^~~~~~~~~~
```
[inst/site/direct_optimizer_test.R:45:28:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/direct_optimizer_test.R#L45) *style:* **Use <-, not =, for assignment.**
```r
       labels_predicted[j] = which(cosines$cosines == max(cosines$cosines))
                           ^
```
[inst/site/direct_optimizer_test.R:51:11:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/direct_optimizer_test.R#L51) *style:* **Use <-, not =, for assignment.**
```r
    error = length(which((labels_test != labels_predicted))) / length(labels_test)
          ^
```
[inst/site/direct_optimizer_test.R:51:26:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/direct_optimizer_test.R#L51) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    error = length(which((labels_test != labels_predicted))) / length(labels_test)
                         ^
```
[inst/site/direct_optimizer_test.R:56:7:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/direct_optimizer_test.R#L56) *style:* **Use <-, not =, for assignment.**
```r
  err = mean(laply(errors,function(x){x}))
      ^
```
[inst/site/direct_optimizer_test.R:56:14:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/direct_optimizer_test.R#L56) *warning:* **no visible global function definition for ‘laply’, Did you mean 'lapply'?**
```r
  err = mean(laply(errors,function(x){x}))
             ^~~~~
```
[inst/site/direct_optimizer_test.R:56:27:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/direct_optimizer_test.R#L56) *style:* **Commas should always have a space after.**
```r
  err = mean(laply(errors,function(x){x}))
                          ^
```
[inst/site/direct_optimizer_test.R:56:38:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/direct_optimizer_test.R#L56) *style:* **Opening curly braces should never go on their own line and should always be followed by a new line.**
```r
  err = mean(laply(errors,function(x){x}))
                                     ^
```
[inst/site/direct_optimizer_test.R:56:40:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/direct_optimizer_test.R#L56) *style:* **Closing curly-braces should always be on their own line, unless it's followed by an else.**
```r
  err = mean(laply(errors,function(x){x}))
                                       ^
```
[inst/site/direct_optimizer_test.R:58:17:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/direct_optimizer_test.R#L58) *style:* **Commas should always have a space after.**
```r
  print(paste(w,p,a, " -> ", err))
                ^
```
[inst/site/direct_optimizer_test.R:58:19:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/direct_optimizer_test.R#L58) *style:* **Commas should always have a space after.**
```r
  print(paste(w,p,a, " -> ", err))
                  ^
```
[inst/site/direct_optimizer_test.R:66:8:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/direct_optimizer_test.R#L66) *style:* **Use <-, not =, for assignment.**
```r
nfolds = 30
       ^
```
[inst/site/direct_optimizer_test.R:67:32:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/direct_optimizer_test.R#L67) *style:* **Commas should always have a space after.**
```r
S <- directL(cverror, rep(c(10,2,2)), rep(c(120,60,12)),
                               ^
```
[inst/site/direct_optimizer_test.R:67:34:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/direct_optimizer_test.R#L67) *style:* **Commas should always have a space after.**
```r
S <- directL(cverror, rep(c(10,2,2)), rep(c(120,60,12)),
                                 ^
```
[inst/site/direct_optimizer_test.R:67:49:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/direct_optimizer_test.R#L67) *style:* **Commas should always have a space after.**
```r
S <- directL(cverror, rep(c(10,2,2)), rep(c(120,60,12)),
                                                ^
```
[inst/site/direct_optimizer_test.R:67:52:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/direct_optimizer_test.R#L67) *style:* **Commas should always have a space after.**
```r
S <- directL(cverror, rep(c(10,2,2)), rep(c(120,60,12)),
                                                   ^
```
[inst/site/direct_optimizer_test.R:72:8:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/direct_optimizer_test.R#L72) *style:* **Use <-, not =, for assignment.**
```r
nfolds = 50
       ^
```
[inst/site/direct_optimizer_test.R:73:32:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/direct_optimizer_test.R#L73) *style:* **Commas should always have a space after.**
```r
S <- directL(cverror, rep(c(10,2,2)), rep(c(140,50,12)),
                               ^
```
[inst/site/direct_optimizer_test.R:73:34:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/direct_optimizer_test.R#L73) *style:* **Commas should always have a space after.**
```r
S <- directL(cverror, rep(c(10,2,2)), rep(c(140,50,12)),
                                 ^
```
[inst/site/direct_optimizer_test.R:73:49:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/direct_optimizer_test.R#L73) *style:* **Commas should always have a space after.**
```r
S <- directL(cverror, rep(c(10,2,2)), rep(c(140,50,12)),
                                                ^
```
[inst/site/direct_optimizer_test.R:73:52:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/direct_optimizer_test.R#L73) *style:* **Commas should always have a space after.**
```r
S <- directL(cverror, rep(c(10,2,2)), rep(c(140,50,12)),
                                                   ^
```
[inst/site/direct_optimizer_test.R:77:6:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/direct_optimizer_test.R#L77) *style:* **Use <-, not =, for assignment.**
```r
data = read.table("../../sax-vsm_classic.git/src/resources/data/Beef/Beef_TRAIN")
     ^
```
[inst/site/direct_optimizer_test.R:78:14:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/direct_optimizer_test.R#L78) *style:* **Use <-, not =, for assignment.**
```r
train_labels = unlist(data[,1])
             ^
```
[inst/site/direct_optimizer_test.R:78:29:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/direct_optimizer_test.R#L78) *style:* **Commas should always have a space after.**
```r
train_labels = unlist(data[,1])
                            ^
```
[inst/site/direct_optimizer_test.R:79:12:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/direct_optimizer_test.R#L79) *style:* **Use <-, not =, for assignment.**
```r
train_data = matrix(unlist(data[,-1]), nrow = length(train_labels))
           ^
```
[inst/site/direct_optimizer_test.R:79:34:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/direct_optimizer_test.R#L79) *style:* **Commas should always have a space after.**
```r
train_data = matrix(unlist(data[,-1]), nrow = length(train_labels))
                                 ^
```
[inst/site/direct_optimizer_test.R:80:7:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/direct_optimizer_test.R#L80) *style:* **Use <-, not =, for assignment.**
```r
nfolds=30
      ^
```
[inst/site/direct_optimizer_test.R:80:7:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/direct_optimizer_test.R#L80) *style:* **Put spaces around all infix operators.**
```r
nfolds=30
     ~^~
```
[inst/site/direct_optimizer_test.R:81:32:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/direct_optimizer_test.R#L81) *style:* **Commas should always have a space after.**
```r
S <- directL(cverror, rep(c(10,2,2)), rep(c(470,100,16)),
                               ^
```
[inst/site/direct_optimizer_test.R:81:34:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/direct_optimizer_test.R#L81) *style:* **Commas should always have a space after.**
```r
S <- directL(cverror, rep(c(10,2,2)), rep(c(470,100,16)),
                                 ^
```
[inst/site/direct_optimizer_test.R:81:49:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/direct_optimizer_test.R#L81) *style:* **Commas should always have a space after.**
```r
S <- directL(cverror, rep(c(10,2,2)), rep(c(470,100,16)),
                                                ^
```
[inst/site/direct_optimizer_test.R:81:53:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/direct_optimizer_test.R#L81) *style:* **Commas should always have a space after.**
```r
S <- directL(cverror, rep(c(10,2,2)), rep(c(470,100,16)),
                                                    ^
```
[inst/site/direct_optimizer_test.R:85:3:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/direct_optimizer_test.R#L85) *style:* **Commented code should be removed.**
```r
# nloptr.print.options()
  ^~~~~~~~~~~~~~~~~~~~~~
```
[inst/site/makedata.R:1:2:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/makedata.R#L1) *style:* **Commented code should be removed.**
```r
## makes a gun-point dataset
 ^~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[inst/site/makedata.R:6:14:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/makedata.R#L6) *style:* **Use <-, not =, for assignment.**
```r
labels_train = unlist(dtrain[,1])
             ^
```
[inst/site/makedata.R:6:31:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/makedata.R#L6) *style:* **Commas should always have a space after.**
```r
labels_train = unlist(dtrain[,1])
                              ^
```
[inst/site/makedata.R:7:13:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/makedata.R#L7) *style:* **Use <-, not =, for assignment.**
```r
labels_test = unlist(dtest[,1])
            ^
```
[inst/site/makedata.R:7:29:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/makedata.R#L7) *style:* **Commas should always have a space after.**
```r
labels_test = unlist(dtest[,1])
                            ^
```
[inst/site/makedata.R:9:12:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/makedata.R#L9) *style:* **Use <-, not =, for assignment.**
```r
data_train = matrix(unlist(dtrain[,-1]), nrow = length(labels_train))
           ^
```
[inst/site/makedata.R:9:36:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/makedata.R#L9) *style:* **Commas should always have a space after.**
```r
data_train = matrix(unlist(dtrain[,-1]), nrow = length(labels_train))
                                   ^
```
[inst/site/makedata.R:10:11:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/makedata.R#L10) *style:* **Use <-, not =, for assignment.**
```r
data_test = matrix(unlist(dtest[,-1]), nrow = length(labels_test))
          ^
```
[inst/site/makedata.R:10:34:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/makedata.R#L10) *style:* **Commas should always have a space after.**
```r
data_test = matrix(unlist(dtest[,-1]), nrow = length(labels_test))
                                 ^
```
[inst/site/makedata.R:12:11:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/makedata.R#L12) *style:* **Use <-, not =, for assignment.**
```r
Gun_Point = list("labels_train" = labels_train, "data_train" = data_train,
          ^
```
[inst/site/makedata.R:22:14:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/makedata.R#L22) *style:* **Use <-, not =, for assignment.**
```r
labels_train = unlist(dtrain[,1])
             ^
```
[inst/site/makedata.R:22:31:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/makedata.R#L22) *style:* **Commas should always have a space after.**
```r
labels_train = unlist(dtrain[,1])
                              ^
```
[inst/site/makedata.R:23:13:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/makedata.R#L23) *style:* **Use <-, not =, for assignment.**
```r
labels_test = unlist(dtest[,1])
            ^
```
[inst/site/makedata.R:23:29:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/makedata.R#L23) *style:* **Commas should always have a space after.**
```r
labels_test = unlist(dtest[,1])
                            ^
```
[inst/site/makedata.R:25:12:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/makedata.R#L25) *style:* **Use <-, not =, for assignment.**
```r
data_train = matrix(unlist(dtrain[,-1]), nrow = length(labels_train))
           ^
```
[inst/site/makedata.R:25:36:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/makedata.R#L25) *style:* **Commas should always have a space after.**
```r
data_train = matrix(unlist(dtrain[,-1]), nrow = length(labels_train))
                                   ^
```
[inst/site/makedata.R:26:11:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/makedata.R#L26) *style:* **Use <-, not =, for assignment.**
```r
data_test = matrix(unlist(dtest[,-1]), nrow = length(labels_test))
          ^
```
[inst/site/makedata.R:26:34:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/makedata.R#L26) *style:* **Commas should always have a space after.**
```r
data_test = matrix(unlist(dtest[,-1]), nrow = length(labels_test))
                                 ^
```
[inst/site/makedata.R:28:5:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/makedata.R#L28) *style:* **Use <-, not =, for assignment.**
```r
CBF = list("labels_train" = labels_train, "data_train" = data_train,
    ^
```
[inst/site/makedata.R:35:72:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/makedata.R#L35) *style:* **Put spaces around all infix operators.**
```r
ecg0606 <- read.table("inst/test_data/ecg0606_1.csv", as.is = T, header=F)$V1
                                                                      ~^~
```
[inst/site/readme_examples.R:10:16:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/readme_examples.R#L10) *style:* **Put spaces around all infix operators.**
```r
plot(x, y, type="l", col="blue",
              ~^~
```
[inst/site/readme_examples.R:10:25:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/readme_examples.R#L10) *style:* **Put spaces around all infix operators.**
```r
plot(x, y, type="l", col="blue",
                       ~^~
```
[inst/site/readme_examples.R:11:10:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/readme_examples.R#L11) *style:* **Put spaces around all infix operators.**
```r
     main="A scaled sine wave with a random noise and its z-normalization")
        ~^~
```
[inst/site/readme_examples.R:14:9:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/readme_examples.R#L14) *style:* **Put spaces around all infix operators.**
```r
abline(h=c(1,-1), lty = 2, col = "gray50")
       ~^~
```
[inst/site/readme_examples.R:14:14:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/readme_examples.R#L14) *style:* **Commas should always have a space after.**
```r
abline(h=c(1,-1), lty = 2, col = "gray50")
             ^
```
[inst/site/readme_examples.R:15:36:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/readme_examples.R#L15) *style:* **Commas should always have a space after.**
```r
legend(0, -4, c("scaled sine wave","z-normalized wave"),
                                   ^
```
[inst/site/readme_examples.R:16:18:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/readme_examples.R#L16) *style:* **Commas should always have a space after.**
```r
       lty = c(1,1), lwd = c(1,1), col = c("blue","red"), cex = 0.8)
                 ^
```
[inst/site/readme_examples.R:16:32:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/readme_examples.R#L16) *style:* **Commas should always have a space after.**
```r
       lty = c(1,1), lwd = c(1,1), col = c("blue","red"), cex = 0.8)
                               ^
```
[inst/site/readme_examples.R:16:51:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/readme_examples.R#L16) *style:* **Commas should always have a space after.**
```r
       lty = c(1,1), lwd = c(1,1), col = c("blue","red"), cex = 0.8)
                                                  ^
```
[inst/site/readme_examples.R:24:16:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/readme_examples.R#L24) *style:* **Commas should always have a space after.**
```r
abline(v = c(1,1+7/3,1+7/3*2,8), lty = 3, lwd = 2, col = "gray50")
               ^
```
[inst/site/readme_examples.R:24:17:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/readme_examples.R#L24) *style:* **Put spaces around all infix operators.**
```r
abline(v = c(1,1+7/3,1+7/3*2,8), lty = 3, lwd = 2, col = "gray50")
               ~^~
```
[inst/site/readme_examples.R:24:19:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/readme_examples.R#L24) *style:* **Put spaces around all infix operators.**
```r
abline(v = c(1,1+7/3,1+7/3*2,8), lty = 3, lwd = 2, col = "gray50")
                 ~^~
```
[inst/site/readme_examples.R:24:22:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/readme_examples.R#L24) *style:* **Commas should always have a space after.**
```r
abline(v = c(1,1+7/3,1+7/3*2,8), lty = 3, lwd = 2, col = "gray50")
                     ^
```
[inst/site/readme_examples.R:24:23:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/readme_examples.R#L24) *style:* **Put spaces around all infix operators.**
```r
abline(v = c(1,1+7/3,1+7/3*2,8), lty = 3, lwd = 2, col = "gray50")
                     ~^~
```
[inst/site/readme_examples.R:24:25:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/readme_examples.R#L24) *style:* **Put spaces around all infix operators.**
```r
abline(v = c(1,1+7/3,1+7/3*2,8), lty = 3, lwd = 2, col = "gray50")
                       ~^~
```
[inst/site/readme_examples.R:24:27:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/readme_examples.R#L24) *style:* **Put spaces around all infix operators.**
```r
abline(v = c(1,1+7/3,1+7/3*2,8), lty = 3, lwd = 2, col = "gray50")
                         ~^~
```
[inst/site/readme_examples.R:24:30:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/readme_examples.R#L24) *style:* **Commas should always have a space after.**
```r
abline(v = c(1,1+7/3,1+7/3*2,8), lty = 3, lwd = 2, col = "gray50")
                             ^
```
[inst/site/readme_examples.R:28:12:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/readme_examples.R#L28) *style:* **Commas should always have a space after.**
```r
segments(1,y_paa3[1],1+7/3,y_paa3[1],lwd=1,col="red")
           ^
```
[inst/site/readme_examples.R:28:22:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/readme_examples.R#L28) *style:* **Commas should always have a space after.**
```r
segments(1,y_paa3[1],1+7/3,y_paa3[1],lwd=1,col="red")
                     ^
```
[inst/site/readme_examples.R:28:23:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/readme_examples.R#L28) *style:* **Put spaces around all infix operators.**
```r
segments(1,y_paa3[1],1+7/3,y_paa3[1],lwd=1,col="red")
                     ~^~
```
[inst/site/readme_examples.R:28:25:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/readme_examples.R#L28) *style:* **Put spaces around all infix operators.**
```r
segments(1,y_paa3[1],1+7/3,y_paa3[1],lwd=1,col="red")
                       ~^~
```
[inst/site/readme_examples.R:28:28:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/readme_examples.R#L28) *style:* **Commas should always have a space after.**
```r
segments(1,y_paa3[1],1+7/3,y_paa3[1],lwd=1,col="red")
                           ^
```
[inst/site/readme_examples.R:28:38:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/readme_examples.R#L28) *style:* **Commas should always have a space after.**
```r
segments(1,y_paa3[1],1+7/3,y_paa3[1],lwd=1,col="red")
                                     ^
```
[inst/site/readme_examples.R:28:41:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/readme_examples.R#L28) *style:* **Put spaces around all infix operators.**
```r
segments(1,y_paa3[1],1+7/3,y_paa3[1],lwd=1,col="red")
                                       ~^~
```
[inst/site/readme_examples.R:28:44:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/readme_examples.R#L28) *style:* **Commas should always have a space after.**
```r
segments(1,y_paa3[1],1+7/3,y_paa3[1],lwd=1,col="red")
                                           ^
```
[inst/site/readme_examples.R:28:47:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/readme_examples.R#L28) *style:* **Put spaces around all infix operators.**
```r
segments(1,y_paa3[1],1+7/3,y_paa3[1],lwd=1,col="red")
                                             ~^~
```
[inst/site/readme_examples.R:29:9:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/readme_examples.R#L29) *style:* **Put spaces around all infix operators.**
```r
points(x=1+7/3/2,y=y_paa3[1],col="red",pch=23,lwd=5)
       ~^~
```
[inst/site/readme_examples.R:29:11:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/readme_examples.R#L29) *style:* **Put spaces around all infix operators.**
```r
points(x=1+7/3/2,y=y_paa3[1],col="red",pch=23,lwd=5)
         ~^~
```
[inst/site/readme_examples.R:29:13:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/readme_examples.R#L29) *style:* **Put spaces around all infix operators.**
```r
points(x=1+7/3/2,y=y_paa3[1],col="red",pch=23,lwd=5)
           ~^~
```
[inst/site/readme_examples.R:29:15:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/readme_examples.R#L29) *style:* **Put spaces around all infix operators.**
```r
points(x=1+7/3/2,y=y_paa3[1],col="red",pch=23,lwd=5)
             ~^~
```
[inst/site/readme_examples.R:29:18:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/readme_examples.R#L29) *style:* **Commas should always have a space after.**
```r
points(x=1+7/3/2,y=y_paa3[1],col="red",pch=23,lwd=5)
                 ^
```
[inst/site/readme_examples.R:29:19:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/readme_examples.R#L29) *style:* **Put spaces around all infix operators.**
```r
points(x=1+7/3/2,y=y_paa3[1],col="red",pch=23,lwd=5)
                 ~^~
```
[inst/site/readme_examples.R:29:30:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/readme_examples.R#L29) *style:* **Commas should always have a space after.**
```r
points(x=1+7/3/2,y=y_paa3[1],col="red",pch=23,lwd=5)
                             ^
```
[inst/site/readme_examples.R:29:33:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/readme_examples.R#L29) *style:* **Put spaces around all infix operators.**
```r
points(x=1+7/3/2,y=y_paa3[1],col="red",pch=23,lwd=5)
                               ~^~
```
[inst/site/readme_examples.R:29:40:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/readme_examples.R#L29) *style:* **Commas should always have a space after.**
```r
points(x=1+7/3/2,y=y_paa3[1],col="red",pch=23,lwd=5)
                                       ^
```
[inst/site/readme_examples.R:29:43:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/readme_examples.R#L29) *style:* **Put spaces around all infix operators.**
```r
points(x=1+7/3/2,y=y_paa3[1],col="red",pch=23,lwd=5)
                                         ~^~
```
[inst/site/readme_examples.R:29:47:](https://github.com/jMotif/jmotif-R/blob/e16002f002b13378a02105ed07e6be0feb4a7e9d/inst/site/readme_examples.R#L29) *style:* **Commas should always have a space after.**
```r
points(x=1+7/3/2,y=y_paa3[1],col="red",pch=23,lwd=5)
                                              ^
```


The UniProt unique name (e.g. VEGFA_HUMAN) can be found in fields with the following templates:
SwissProt: http://kabob.ucdenver.edu/iao/uniprot/UniProtFileRecord_nameDataField1
Trembl: http://kabob.ucdenver.edu/iao/uniprot/SparseUniProtFileRecord_nameDataField1


❌ ❌ ❌

Cuidado! Para comparar strings de forma "segura", utilize **sempre** o método equals!


but you can just include `jupyter` to cover all of them


Raoul,

The description should be in the same file as the code, not in a separate
wiki. This way documentation and code are in the same place.

You introduced a bunch of PEP8 violoations by adding blank lines between
functions. You can see the PEP8 violations on Github now. Very cool. Could
you fix those?

Also, in the decsription you don't need to list the __init__ function (-:

Mark

On Tue, Apr 19, 2016 at 5:32 PM, Raoul Collenteur <notifications@github.com>
wrote:

> I actually think this is not the way this should be done. I would prefer
> documenting the necessary attributes and function in the Wiki and
> implementing a docstring for each function. We can maintain a 'How-To'
> section on how to write such classes. Any thoughts?
>
> —
> You are receiving this because you are subscribed to this thread.
> Reply to this email directly or view it on GitHub
> <https://github.com/gwtsa/gwtsa/commit/ab8eb28282650d2f4693539c1bc7e9ebbfba5d47#commitcomment-17162300>
>


@ahmedalsudani @fjvallarino It might be better to avoid sending the ip address parameter if we can't get it.  That way if we've set it before, maybe *core* will keep the same data it had previously.  Whereas if we send `null` it might overwrite the ip address in the data store.  We should check into the behaviour and confirm.


Can't we use `.is_a? RuntimeError` here? Also, Errors sometimes contain a reason, you probably want `message =~ /^SQL ERROR/` instead.


probably could use a delete


Should extend CommandBase instead


Yeah but... I'm lazy. It's easier to just `pip freeze > requirements.txt` whenever requirements change for a short term project like this


TeamCity OSS :: Kubernetes Mesos :: 4 - Smoke Tests [Build 21835](https://teamcity.mesosphere.io/viewLog.html?buildId=218001&buildTypeId=Oss_KubernetesMesos_5SmokeTestsDockerMesos&guest=1) outcome was **FAILURE**
Summary: Exit code 1 Build time: 00:08:55


@tejohnso do you mean sending `ip=` (empty string) or doing away with the ip parameter altogether?


ho dovuto rinominarlo perché togliendo "_" dopo la data se no non appariva


Ok, and for `EntityChainLinkCell`/`ChainMergeEntry`: as far as I can tell, if you have two conflicting ChainEntries, you pick one as being "accepted" normally, which means that the parent pointer on the other one no longer lines up, so you synthesize a new `EntityChainLinkCell` where `link` is a reference to this "orphaned" chain entry. Is this right?

If that's the case, the part that says "they reference the same canonical with a different chain pointer" should probably say "_the same_ chain pointer" (or "with incompatible chain pointers"), but this depends on my understanding of `chain`/`chainLink` references.


Hi,

please check https://github.com/espressomd/espresso/issues/583, there is a full description.


Should probably throw a CommandException


Thanks. I've seen that before, and I agree. Very few rules are absolute.


But you're right. I will gladly accept a PR to clean up the requirements file :smile:


(I think it may be helpful to comment up pretty much all the chain/link/ref/chainMerge fields)


If you wanted to be evil, you COULD test this on a recursive tree. As far as I can tell there's nothing in this definition that says that a Node can't be it's own child, aside from the use of the word "tree"


`aux` não é um bom nome de variável. Por favor melhora isto!


@hudakdidit the send emails rake task wasn't working either, via the button. Maybe there is extra environment stuff involved? In any case, better that we don't need to invoke any rake tasks from a controller.


@ethanwhite, 2  disconnects functions.


Так?


Should change this and the whole item probably for ScriptInstance instead


Заяц должен съесть клевер и умереть, т к клевер ядовитый. Заяц не умирает:(


whoops, meant Makefile not readme in the commit message.


Ok


Ok, cool.  But I'm not merging these changes back into my fork because it is not my style, nor any of the other projects I contribute to.


@adiherzog Thanks a lot for cleaning up this code! It is much much much simpler now! I am so happy to work with you, because your passion for reducing needless complexity is just awesome! Great work mate! :+1: :top:


testing that pushes were made with my account and not with camilo's


It worked for me locally this morning. But yes, not worth pursuing. I only added it for convenience for testing..


Because the `JournalEntry`s are supposed to happen concurrently as a unit, this should be probably be a singular `transaction`


Could probably optimize this.


Could probably optimize this too


Test deployments need to enforce the invariant that unless they are running they are scaled to zero.


no *M*ixed formulation.


Given the 100 increase that we have on M3.1, M3.1 is considered to be a separate service stream.  That means our M1->M2->M3->M6 are under the same stream.  Therefore, straightly speaking M7 should build based on the version number of M6 and increase by 1 only.  However, the problem will come when someone is trying to update M3.1 to M7 for which M3.1 will have a higher version number than M7, i.e. no update path from M3.1 to M7.

Given what we currently have, I think we may have to do:
1. Use all version numbers that are based on M3.1 and just increase by one from the M3.1 level for all plugins/features that has been changed.
2. We also need to check to make sure all changed version numbers are above M6 version level.  If there are ones that M6 is above M3.1, we'll increase the M6 version number by 1.

Do you have any concerns on that approach?


Since mosquitto is brought by the meta-intel-iot-middleware layer, I think the dependencies in the readme (and also things like Minnowboard wiki page) should be updated?


@ahmedalsudani I meant doing away with ip param altogether but I'm not sure either will work.  we'll have to look at the core code to see how it handles either scenario.


Exercício da calculadora. Feita com interface.


View v?


Fix for issue #116


It is wrong to say "Also I like to sing." I should have written I also like to sin, I think.


Completely modified the deploy file.


mangler en space


rart navn ? cols vs rows. mulig jeg tenker annerledes men.


Thanks. If we end up going with this approach in general we can account for that in another way.


@WojciechMula thanks. This is clear now!


[R/io.R:53:17:](https://github.com/bwlewis/feathercache/blob/b04b66c6a34c9cc813e938b584694236ac004c4a/R/io.R#L53) *style:* **Put spaces around all infix operators.**
```r
  con("get", key=key)
               ~^~
```
[R/io.R:83:19:](https://github.com/bwlewis/feathercache/blob/b04b66c6a34c9cc813e938b584694236ac004c4a/R/io.R#L83) *style:* **Put spaces around all infix operators.**
```r
  con("put", value=value, key=key)
                 ~^~
```
[R/io.R:83:30:](https://github.com/bwlewis/feathercache/blob/b04b66c6a34c9cc813e938b584694236ac004c4a/R/io.R#L83) *style:* **Put spaces around all infix operators.**
```r
  con("put", value=value, key=key)
                            ~^~
```
[R/io.R:108:20:](https://github.com/bwlewis/feathercache/blob/b04b66c6a34c9cc813e938b584694236ac004c4a/R/io.R#L108) *style:* **Put spaces around all infix operators.**
```r
  con("delete", key=key)
                  ~^~
```
[R/io.R:139:18:](https://github.com/bwlewis/feathercache/blob/b04b66c6a34c9cc813e938b584694236ac004c4a/R/io.R#L139) *style:* **Put spaces around all infix operators.**
```r
  con("head", key=key)
                ~^~
```
[R/mongoose.R:23:35:](https://github.com/bwlewis/feathercache/blob/b04b66c6a34c9cc813e938b584694236ac004c4a/R/mongoose.R#L23) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  serialize0 = function(x, con) if(is.raw(x)) x else serialize(x, con)
                                  ^
```
[R/mongoose.R:25:5:](https://github.com/bwlewis/feathercache/blob/b04b66c6a34c9cc813e938b584694236ac004c4a/R/mongoose.R#L25) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(is.null(opts$compression)) opts$compression = "lz4"
    ^
```
[R/mongoose.R:26:5:](https://github.com/bwlewis/feathercache/blob/b04b66c6a34c9cc813e938b584694236ac004c4a/R/mongoose.R#L26) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(is.null(opts$ssl_verifyhost)) opts$ssl_verifyhost = 0
    ^
```
[R/mongoose.R:27:5:](https://github.com/bwlewis/feathercache/blob/b04b66c6a34c9cc813e938b584694236ac004c4a/R/mongoose.R#L27) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(is.null(opts$ssl_verifypeer)) opts$ssl_verifypeer = 0
    ^
```
[R/mongoose.R:28:5:](https://github.com/bwlewis/feathercache/blob/b04b66c6a34c9cc813e938b584694236ac004c4a/R/mongoose.R#L28) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(is.null(opts$redirect_limit)) opts$redirect_limit = 3
    ^
```
[R/mongoose.R:31:17:](https://github.com/bwlewis/feathercache/blob/b04b66c6a34c9cc813e938b584694236ac004c4a/R/mongoose.R#L31) *style:* **Put spaces around all infix operators.**
```r
             lz4=function(x) unserialize(lz4::lzDecompress(x)),
               ~^~
```
[R/mongoose.R:32:18:](https://github.com/bwlewis/feathercache/blob/b04b66c6a34c9cc813e938b584694236ac004c4a/R/mongoose.R#L32) *style:* **Put spaces around all infix operators.**
```r
             gzip=function(x) unserialize(memDecompress(x, type="gzip")),
                ~^~
```
[R/mongoose.R:32:64:](https://github.com/bwlewis/feathercache/blob/b04b66c6a34c9cc813e938b584694236ac004c4a/R/mongoose.R#L32) *style:* **Put spaces around all infix operators.**
```r
             gzip=function(x) unserialize(memDecompress(x, type="gzip")),
                                                              ~^~
```
[R/mongoose.R:33:16:](https://github.com/bwlewis/feathercache/blob/b04b66c6a34c9cc813e938b584694236ac004c4a/R/mongoose.R#L33) *style:* **Put spaces around all infix operators.**
```r
             xz=function(x) unserialize(memDecompress(x, type="xz")),
              ~^~
```
[R/mongoose.R:33:62:](https://github.com/bwlewis/feathercache/blob/b04b66c6a34c9cc813e938b584694236ac004c4a/R/mongoose.R#L33) *style:* **Put spaces around all infix operators.**
```r
             xz=function(x) unserialize(memDecompress(x, type="xz")),
                                                            ~^~
```
[R/mongoose.R:36:17:](https://github.com/bwlewis/feathercache/blob/b04b66c6a34c9cc813e938b584694236ac004c4a/R/mongoose.R#L36) *style:* **Put spaces around all infix operators.**
```r
             lz4=function(x) lz4::lzCompress(serialize0(x, NULL)),
               ~^~
```
[R/mongoose.R:37:18:](https://github.com/bwlewis/feathercache/blob/b04b66c6a34c9cc813e938b584694236ac004c4a/R/mongoose.R#L37) *style:* **Put spaces around all infix operators.**
```r
             gzip=function(x) memCompress(serialize0(x, NULL), type="gzip"),
                ~^~
```
[R/mongoose.R:37:68:](https://github.com/bwlewis/feathercache/blob/b04b66c6a34c9cc813e938b584694236ac004c4a/R/mongoose.R#L37) *style:* **Put spaces around all infix operators.**
```r
             gzip=function(x) memCompress(serialize0(x, NULL), type="gzip"),
                                                                  ~^~
```
[R/mongoose.R:38:16:](https://github.com/bwlewis/feathercache/blob/b04b66c6a34c9cc813e938b584694236ac004c4a/R/mongoose.R#L38) *style:* **Put spaces around all infix operators.**
```r
             xz=function(x) memCompress(serialize0(x, NULL), type="xz"),
              ~^~
```
[R/mongoose.R:38:66:](https://github.com/bwlewis/feathercache/blob/b04b66c6a34c9cc813e938b584694236ac004c4a/R/mongoose.R#L38) *style:* **Put spaces around all infix operators.**
```r
             xz=function(x) memCompress(serialize0(x, NULL), type="xz"),
                                                                ~^~
```
[R/mongoose.R:45:7:](https://github.com/bwlewis/feathercache/blob/b04b66c6a34c9cc813e938b584694236ac004c4a/R/mongoose.R#L45) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if("user" %in% names(opts) && "password" %in% names(opts))
      ^
```
[R/mongoose.R:48:38:](https://github.com/bwlewis/feathercache/blob/b04b66c6a34c9cc813e938b584694236ac004c4a/R/mongoose.R#L48) *style:* **Put spaces around all infix operators.**
```r
      curl::handle_setopt(h, httpauth=2, userpwd=paste(opts$user, opts$password, sep=":"))
                                    ~^~
```
[R/mongoose.R:48:49:](https://github.com/bwlewis/feathercache/blob/b04b66c6a34c9cc813e938b584694236ac004c4a/R/mongoose.R#L48) *style:* **Put spaces around all infix operators.**
```r
      curl::handle_setopt(h, httpauth=2, userpwd=paste(opts$user, opts$password, sep=":"))
                                               ~^~
```
[R/mongoose.R:48:85:](https://github.com/bwlewis/feathercache/blob/b04b66c6a34c9cc813e938b584694236ac004c4a/R/mongoose.R#L48) *style:* **Put spaces around all infix operators.**
```r
      curl::handle_setopt(h, httpauth=2, userpwd=paste(opts$user, opts$password, sep=":"))
                                                                                ~^~
```
[R/mongoose.R:50:33:](https://github.com/bwlewis/feathercache/blob/b04b66c6a34c9cc813e938b584694236ac004c4a/R/mongoose.R#L50) *style:* **Put spaces around all infix operators.**
```r
    curl::handle_setopt(h, .list=list(ssl_verifyhost=opts$ssl_verifyhost, ssl_verifypeer=opts$ssl_verifypeer,
                               ~^~
```
[R/mongoose.R:50:53:](https://github.com/bwlewis/feathercache/blob/b04b66c6a34c9cc813e938b584694236ac004c4a/R/mongoose.R#L50) *style:* **Put spaces around all infix operators.**
```r
    curl::handle_setopt(h, .list=list(ssl_verifyhost=opts$ssl_verifyhost, ssl_verifypeer=opts$ssl_verifypeer,
                                                   ~^~
```
[R/mongoose.R:50:89:](https://github.com/bwlewis/feathercache/blob/b04b66c6a34c9cc813e938b584694236ac004c4a/R/mongoose.R#L50) *style:* **Put spaces around all infix operators.**
```r
    curl::handle_setopt(h, .list=list(ssl_verifyhost=opts$ssl_verifyhost, ssl_verifypeer=opts$ssl_verifypeer,
                                                                                ~^~
```
[R/mongoose.R:51:48:](https://github.com/bwlewis/feathercache/blob/b04b66c6a34c9cc813e938b584694236ac004c4a/R/mongoose.R#L51) *style:* **Put spaces around all infix operators.**
```r
                                      maxredirs=opts$redirect_limit, followlocation=52))
                                              ~^~
```
[R/mongoose.R:51:84:](https://github.com/bwlewis/feathercache/blob/b04b66c6a34c9cc813e938b584694236ac004c4a/R/mongoose.R#L51) *style:* **Put spaces around all infix operators.**
```r
                                      maxredirs=opts$redirect_limit, followlocation=52))
                                                                                ~^~
```
[R/mongoose.R:54:23:](https://github.com/bwlewis/feathercache/blob/b04b66c6a34c9cc813e938b584694236ac004c4a/R/mongoose.R#L54) *warning:* **no visible global function definition for ‘urlEncodePath’**
```r
    url = paste(base, urlEncodePath(args$key), sep="/") ## XXX urlencode
                      ^~~~~~~~~~~~~
```
[R/mongoose.R:54:51:](https://github.com/bwlewis/feathercache/blob/b04b66c6a34c9cc813e938b584694236ac004c4a/R/mongoose.R#L54) *style:* **Put spaces around all infix operators.**
```r
    url = paste(base, urlEncodePath(args$key), sep="/") ## XXX urlencode
                                                 ~^~
```
[R/mongoose.R:55:7:](https://github.com/bwlewis/feathercache/blob/b04b66c6a34c9cc813e938b584694236ac004c4a/R/mongoose.R#L55) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(proto == "put")
      ^
```
[R/mongoose.R:59:35:](https://github.com/bwlewis/feathercache/blob/b04b66c6a34c9cc813e938b584694236ac004c4a/R/mongoose.R#L59) *style:* **Put spaces around all infix operators.**
```r
      curl::handle_setopt(h, .list=list(post=TRUE, postfieldsize=length(data), postfields=data))
                                 ~^~
```
[R/mongoose.R:59:45:](https://github.com/bwlewis/feathercache/blob/b04b66c6a34c9cc813e938b584694236ac004c4a/R/mongoose.R#L59) *style:* **Put spaces around all infix operators.**
```r
      curl::handle_setopt(h, .list=list(post=TRUE, postfieldsize=length(data), postfields=data))
                                           ~^~
```
[R/mongoose.R:59:65:](https://github.com/bwlewis/feathercache/blob/b04b66c6a34c9cc813e938b584694236ac004c4a/R/mongoose.R#L59) *style:* **Put spaces around all infix operators.**
```r
      curl::handle_setopt(h, .list=list(post=TRUE, postfieldsize=length(data), postfields=data))
                                                               ~^~
```
[R/mongoose.R:59:90:](https://github.com/bwlewis/feathercache/blob/b04b66c6a34c9cc813e938b584694236ac004c4a/R/mongoose.R#L59) *style:* **Put spaces around all infix operators.**
```r
      curl::handle_setopt(h, .list=list(post=TRUE, postfieldsize=length(data), postfields=data))
                                                                                ~^~
```
[R/mongoose.R:60:49:](https://github.com/bwlewis/feathercache/blob/b04b66c6a34c9cc813e938b584694236ac004c4a/R/mongoose.R#L60) *style:* **Put spaces around all infix operators.**
```r
      resp = curl::curl_fetch_memory(url, handle=h)
                                               ~^~
```
[R/mongoose.R:61:9:](https://github.com/bwlewis/feathercache/blob/b04b66c6a34c9cc813e938b584694236ac004c4a/R/mongoose.R#L61) *style:* **Place a space before left parenthesis, except in a function call.**
```r
      if(resp$status_code > 299) stop("HTTP error ", resp$status_code)
        ^
```
[R/mongoose.R:63:14:](https://github.com/bwlewis/feathercache/blob/b04b66c6a34c9cc813e938b584694236ac004c4a/R/mongoose.R#L63) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    } else if(proto == "head")
             ^
```
[R/mongoose.R:65:73:](https://github.com/bwlewis/feathercache/blob/b04b66c6a34c9cc813e938b584694236ac004c4a/R/mongoose.R#L65) *style:* **Put spaces around all infix operators.**
```r
      curl::handle_setopt(h, .list = list(customrequest = "HEAD", nobody=TRUE))
                                                                       ~^~
```
[R/mongoose.R:66:49:](https://github.com/bwlewis/feathercache/blob/b04b66c6a34c9cc813e938b584694236ac004c4a/R/mongoose.R#L66) *style:* **Put spaces around all infix operators.**
```r
      resp = curl::curl_fetch_memory(url, handle=h)
                                               ~^~
```
[R/mongoose.R:67:9:](https://github.com/bwlewis/feathercache/blob/b04b66c6a34c9cc813e938b584694236ac004c4a/R/mongoose.R#L67) *style:* **Place a space before left parenthesis, except in a function call.**
```r
      if(resp$status_code > 299) stop("HTTP error ", resp$status_code)
        ^
```
[R/mongoose.R:75:14:](https://github.com/bwlewis/feathercache/blob/b04b66c6a34c9cc813e938b584694236ac004c4a/R/mongoose.R#L75) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    } else if(proto == "get")
             ^
```
[R/mongoose.R:77:49:](https://github.com/bwlewis/feathercache/blob/b04b66c6a34c9cc813e938b584694236ac004c4a/R/mongoose.R#L77) *style:* **Put spaces around all infix operators.**
```r
      resp = curl::curl_fetch_memory(url, handle=h)
                                               ~^~
```
[R/mongoose.R:78:9:](https://github.com/bwlewis/feathercache/blob/b04b66c6a34c9cc813e938b584694236ac004c4a/R/mongoose.R#L78) *style:* **Place a space before left parenthesis, except in a function call.**
```r
      if(resp$status_code > 299) stop("HTTP error ", resp$status_code)
        ^
```
[R/mongoose.R:82:23:](https://github.com/bwlewis/feathercache/blob/b04b66c6a34c9cc813e938b584694236ac004c4a/R/mongoose.R#L82) *style:* **Put spaces around all infix operators.**
```r
                 split="content-type:")[[1]][2])), error=function(e) "application/binary")
                     ~^~
```
[R/mongoose.R:82:57:](https://github.com/bwlewis/feathercache/blob/b04b66c6a34c9cc813e938b584694236ac004c4a/R/mongoose.R#L82) *style:* **Put spaces around all infix operators.**
```r
                 split="content-type:")[[1]][2])), error=function(e) "application/binary")
                                                       ~^~
```
[R/mongoose.R:83:9:](https://github.com/bwlewis/feathercache/blob/b04b66c6a34c9cc813e938b584694236ac004c4a/R/mongoose.R#L83) *style:* **Place a space before left parenthesis, except in a function call.**
```r
      if(length(grep("application/json", type, ignore.case=TRUE) > 0)) # directory listing
        ^
```
[R/mongoose.R:83:59:](https://github.com/bwlewis/feathercache/blob/b04b66c6a34c9cc813e938b584694236ac004c4a/R/mongoose.R#L83) *style:* **Put spaces around all infix operators.**
```r
      if(length(grep("application/json", type, ignore.case=TRUE) > 0)) # directory listing
                                                         ~^~
```
[R/mongoose.R:92:7:](https://github.com/bwlewis/feathercache/blob/b04b66c6a34c9cc813e938b584694236ac004c4a/R/mongoose.R#L92) *style:* **Place a space before left parenthesis, except in a function call.**
```r
    if(proto == "delete")
      ^
```
[R/mongoose.R:95:49:](https://github.com/bwlewis/feathercache/blob/b04b66c6a34c9cc813e938b584694236ac004c4a/R/mongoose.R#L95) *style:* **Put spaces around all infix operators.**
```r
      resp = curl::curl_fetch_memory(url, handle=h)
                                               ~^~
```
[R/mongoose.R:96:9:](https://github.com/bwlewis/feathercache/blob/b04b66c6a34c9cc813e938b584694236ac004c4a/R/mongoose.R#L96) *style:* **Place a space before left parenthesis, except in a function call.**
```r
      if(resp$status_code > 299) stop("HTTP error ", resp$status_code)
        ^
```
[R/mongoose.R:121:56:](https://github.com/bwlewis/feathercache/blob/b04b66c6a34c9cc813e938b584694236ac004c4a/R/mongoose.R#L121) *style:* **Put spaces around all infix operators.**
```r
  m = system.file("backends/mongoose/mongoose", package="feathercache")
                                                      ~^~
```
[R/mongoose.R:122:5:](https://github.com/bwlewis/feathercache/blob/b04b66c6a34c9cc813e938b584694236ac004c4a/R/mongoose.R#L122) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(nchar(m) == 0) stop("mongoose not found!")
    ^
```
[R/mongoose.R:124:5:](https://github.com/bwlewis/feathercache/blob/b04b66c6a34c9cc813e938b584694236ac004c4a/R/mongoose.R#L124) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(!is.null(port)) cmd = sprintf("%s -p %d", cmd, as.integer(port))
    ^
```
[R/mongoose.R:125:5:](https://github.com/bwlewis/feathercache/blob/b04b66c6a34c9cc813e938b584694236ac004c4a/R/mongoose.R#L125) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(!is.null(forward_to)) cmd = sprintf("%s -f %s", cmd, forward_to)
    ^
```
[R/mongoose.R:126:5:](https://github.com/bwlewis/feathercache/blob/b04b66c6a34c9cc813e938b584694236ac004c4a/R/mongoose.R#L126) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(!is.null(ssl_cert)) cmd = sprintf("%s -s %s", cmd, ssl_cert)
    ^
```
[R/mongoose.R:127:5:](https://github.com/bwlewis/feathercache/blob/b04b66c6a34c9cc813e938b584694236ac004c4a/R/mongoose.R#L127) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(!is.null(auth_domain)) cmd = sprintf("%s -a %s", cmd, auth_domain)
    ^
```
[R/mongoose.R:128:5:](https://github.com/bwlewis/feathercache/blob/b04b66c6a34c9cc813e938b584694236ac004c4a/R/mongoose.R#L128) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(!is.null(global_auth)) cmd = sprintf("%s -P %s", cmd, global_auth)
    ^
```
[R/mongoose.R:129:19:](https://github.com/bwlewis/feathercache/blob/b04b66c6a34c9cc813e938b584694236ac004c4a/R/mongoose.R#L129) *style:* **Put spaces around all infix operators.**
```r
  system(cmd, wait=FALSE)
                 ~^~
```
[R/util.R:4:37:](https://github.com/bwlewis/feathercache/blob/b04b66c6a34c9cc813e938b584694236ac004c4a/R/util.R#L4) *style:* **Put spaces around all infix operators.**
```r
  enc = utils::URLencode(x, reserved=TRUE)
                                   ~^~
```
[R/util.R:24:92:](https://github.com/bwlewis/feathercache/blob/b04b66c6a34c9cc813e938b584694236ac004c4a/R/util.R#L24) *style:* **Put spaces around all infix operators.**
```r
            digest::digest(charToRaw(sprintf("%s:%s:%s", user, realm, password)), serialize=FALSE, algo="md5"))
                                                                                ~^~
```
[R/util.R:24:104:](https://github.com/bwlewis/feathercache/blob/b04b66c6a34c9cc813e938b584694236ac004c4a/R/util.R#L24) *style:* **Put spaces around all infix operators.**
```r
            digest::digest(charToRaw(sprintf("%s:%s:%s", user, realm, password)), serialize=FALSE, algo="md5"))
                                                                                ~^~
```
[R/util.R:25:38:](https://github.com/bwlewis/feathercache/blob/b04b66c6a34c9cc813e938b584694236ac004c4a/R/util.R#L25) *style:* **Put spaces around all infix operators.**
```r
  f = tryCatch(readLines(file), error=function(e) c(), warning=function(e) c())
                                    ~^~
```
[R/util.R:25:63:](https://github.com/bwlewis/feathercache/blob/b04b66c6a34c9cc813e938b584694236ac004c4a/R/util.R#L25) *style:* **Put spaces around all infix operators.**
```r
  f = tryCatch(readLines(file), error=function(e) c(), warning=function(e) c())
                                                             ~^~
```
[R/util.R:28:5:](https://github.com/bwlewis/feathercache/blob/b04b66c6a34c9cc813e938b584694236ac004c4a/R/util.R#L28) *style:* **Place a space before left parenthesis, except in a function call.**
```r
  if(length(idx) > 0)
    ^
```
[R/util.R:33:20:](https://github.com/bwlewis/feathercache/blob/b04b66c6a34c9cc813e938b584694236ac004c4a/R/util.R#L33) *style:* **Put spaces around all infix operators.**
```r
  writeLines(f, con=file)
                  ~^~
```
[tests/mongoose.R:4:45:](https://github.com/bwlewis/feathercache/blob/b04b66c6a34c9cc813e938b584694236ac004c4a/tests/mongoose.R#L4) *style:* **Put spaces around all infix operators.**
```r
  stopifnot(all.equal(a, b, check.attributes=FALSE, check.names=FALSE))
                                           ~^~
```
[tests/mongoose.R:4:64:](https://github.com/bwlewis/feathercache/blob/b04b66c6a34c9cc813e938b584694236ac004c4a/tests/mongoose.R#L4) *style:* **Put spaces around all infix operators.**
```r
  stopifnot(all.equal(a, b, check.attributes=FALSE, check.names=FALSE))
                                                              ~^~
```
[tests/mongoose.R:10:21:](https://github.com/bwlewis/feathercache/blob/b04b66c6a34c9cc813e938b584694236ac004c4a/tests/mongoose.R#L10) *style:* **Put spaces around all infix operators.**
```r
cache(con, iris, key="mystuff/iris")  # put a copy of iris in the 'mystuff' directory
                   ~^~
```
[tests/mongoose.R:11:21:](https://github.com/bwlewis/feathercache/blob/b04b66c6a34c9cc813e938b584694236ac004c4a/tests/mongoose.R#L11) *style:* **Put spaces around all infix operators.**
```r
cache(con, cars, key="mystuff/cars")  # put a copy of cars in the 'mystuff' directory
                   ~^~
```
[tests/mongoose.R:19:26:](https://github.com/bwlewis/feathercache/blob/b04b66c6a34c9cc813e938b584694236ac004c4a/tests/mongoose.R#L19) *style:* **Put spaces around all infix operators.**
```r
n <- cache(con, iris, key="mystuff/~ ! @#$%^&*()-_=+[]{}:;\"'<>,.?`")
                        ~^~
```


TeamCity OSS :: Kubernetes Mesos :: 4 - Smoke Tests [Build 21832](https://teamcity.mesosphere.io/viewLog.html?buildId=217981&buildTypeId=Oss_KubernetesMesos_5SmokeTestsDockerMesos&guest=1) outcome was **FAILURE**
Summary: Execution timeout (new) Build time: 01:00:05


Related to: backdrop/backdrop-issues#1767


thanks!