Bluemix [toolchain](https://console.bluemix.net/devops/toolchains/cb9c5da0-fba3-449e-9492-601ddc38ebc1 "simple-toolchain-20171025202900519"): [Delivery Pipeline](https://console.bluemix.net/devops/pipelines/8c2eea93-4d9b-46af-b2cb-1779afbaf888 "simple-toolchain-20171025202900519") deployed [simple-toolchain-20171025202900519](https://github.com/fishermanjoe1999/simple-toolchain-20171025202900519/releases/tag/deploy-ibm-yp-us-south-csdi-us.ibm.com-Boulder-Masterclass-20171025-213401 "deploy-ibm-yp-us-south-csdi-us.ibm.com-Boulder-Masterclass-20171025-213401") to [Boulder Masterclass](https://console.bluemix.net/apps/6ccbfe78-7c24-4e81-98de-1e6b8358aeaa?env_id=ibm:yp:us-south "ibm:yp:us-south:csdi@us.ibm.com:Boulder Masterclass"), including this commit


# 𝔾³: Generic Grid Game

# 𝙶³: Generic Grid Game

# 𝗚³: Generic Grid Game


So product info is duplicated? `SSTORE` galore?


можно сразу использовать вещи типа 555-555-5555 чтобы если с мобилки зашли, можно было позвонить. Это сразу делает сайт дружелюбным )


Inventory interaction*, _brain fart_.


Ah yes, that doesn't look like its going to work too well.


I don't think you need a variable for that. It is read only once.


@k4k: It's working for me as well. I've merged it to master now, so you can test that if you want (though, it should be the same). If it's still not working for you, you can open an issue in https://github.com/wee-slack/wee-slack.


You have already left a +1 on the relevant issue https://github.com/ProjectMirador/mirador/issues/93 (which is the best place I guess). But you can also post a message on the #mirador channel on IIIF Slack https://iiif.slack.com/messages/C148SMLD7/, or even on the mirador-tech list https://groups.google.com/forum/#!forum/mirador-tech :wink:


Nice! You can even check that `txObject.receipt.logs[ 0 ].topics[ 1 ].indexOf(oldOwner) >= 0` or something akin.


not sure if that makes a difference in practice, but the explicit closing of the datasets enabled previously to limit the number of datasets simultaneously opened


changed password


El nuevo servicio web de Moodle 3.3 gradereport_user_get_grade_items genera un archivo JSON mas ligero y fácil de leer que otros servicios. Se debería poder generar el árbol del calificador mediante este servicio reduciendo el tiempo de acceso al inicio de la aplicación.


I'd kept the explicit closing here, since the dataset is sometimes not valid until it is explicitly closed. And thus the call to QgsGdalProvider constructor could be made on a dataset with inconsistent change without prior explicit closing


Utiliza `===` en vez de `==`.
Además puedes simplificar este método, quedando sólo una linea:
`return this.queueControl.length === 0`
Si se cumple retornas `true` y si no se cumple `false`


Changes are on lines 211 and 213-sorry for the whitespace I thought I had gotten rid of it


Use var


why not using GDALDatasetH type instead of void* ?


Al igual que en el comentario anterior, no hace falta el if/else:
`return this.queueControl.length < this.MAX_SIZE`


It improves building time "better than include_guard". I just use it with windows.


I'll try to put something together by next week.


the latest build of `body-parser` is embedding older version of the `@types/node` and thus `@types/express-serve-static-core`, which is causing a mismatch because body-parser expects a generic Request, but the included builds do not have one


Acostúmbrate a dejar espaciado al rededor del igual: `this.MAX_SIZE = 10;`


real shit


Is the 18/8 entry still appropriate to retain?


not linked to your change, but the old and new code will leak the dataset handle. And if you don't close the handle before calling GDALDeleteDataset(), this will not work on Windows.


The `i >= pos` logic is surely wrong, as it means "only return elements whose post is greater than x_pos" which is the opposite of the for loop. And in the for loop you take the last matching item, but in the iterator version you take the first. I guess this code isn't currently being tested?

I think you want something like:

```rust
let v = x.children(&store.to_arena)
         .iter()
         .take(x_pos)
         .filter(|c| to_in_order.contains(c))
         .last();
```


Done. :)


It refuses to build when I tried that. My understanding is that void * unique_ptr with custom deleter is supposed to be permissible, but this was the only way I could actually get it to build (on gcc at least).


I am thinking about creating windows script ie python to generate test info.


done


blba


I'll re-add hDataSource.reset() wherever we were manually closing datasets before - that'll give us the additional safety the unique_ptrs bring without any negative impact


De la siguiente manera sólo metes un bloque de if/else, ten en cuenta que cuando llega al return ya no sigue ejecutando la función. Si además creas `var queue = this.queueControl` que lo estamos utilizando en varios sitios 👍
```
if (this.queueControl.length !== this.MAX_SIZE) {
    this.queueControl.unshift(element);
    return this.queueControl;
}

return 'Queue Overflow';
```


Thanks - I hit that myself and fixed with https://github.com/qgis/QGIS/pull/5423/commits/bfe6c45e9f9d5e742b884d7d507a0df4d1c1dec7


Ooh, nice


This conflicts with `.u-right` I added for `float: right;`. Do you have plans on adding utility classes for floats? I will rename but just wondering if there are many more utility classes coming since I find I have to write a few usually.


This looked odd to me too - so is the comment "delete the dataset without closing (because it is faster)" incorrect?


Does the javax.servlet dependency in [installer/webapp/pom.xml](https://github.com/vivo-project/VIVO/blob/develop/installer/webapp/pom.xml#L169) also need updated?

I had to do it for my custom installer, and also add maven central to the repo list in my custom-installer/pom.xml file to install successfully.


(I noticed the same logic was used elsewhere too)


En este caso, a parte de declarar `var queue = this.queueControl` puedes utilizar operadores ternarios, quedando el método así:
```
return this.queueControl.length === 0 ? 'Queue Underflow' : this.queueControl[this.queueControl.length-1];
```


Ok verifiquei as melhorias na class GetSaldo e na class depositoRegraDeNegocio, depois compilei aqui no meu NetBeans e deu tudo certo! Muito bom Hyllner!


Gantts Updated


Looks fine, I might change some properties first just to keep consistancy.


Gold code factorization !


> This looked odd to me too - so is the comment "delete the dataset without closing (because it is faster)" incorrect?
This is probably true if someone wrote it. I suspect this might avoid a dataset to be filled with default null dataset when cancelling its creation, but I'm not completely sure of why deleting the dataset would avoid that... But at least the dataset should be released at some point. Probably the safer sequence would be

CPLPushErrorHandler(CPLQuietErrorHandler)
GDALDeleteDataset()
CPLPopErrorHandler()
close dataset handle
// try again for Windows
CPLPushErrorHandler(CPLQuietErrorHandler)
GDALDeleteDataset()
CPLPopErrorHandler()


Good code factorization here !


[proposal_v0.8.docx](https://github.com/ourteam2017/Bio_programmingI-/files/1416339/proposal_v0.8.docx)
Olga -v0.8


submit button was outside of form so it didnt work


Hopefully it will be done soon :ok_hand:


Interactions between manual `display.backlight()`, `@ui.layout` and swiping are a bit glitchy now, sorry about that :( I'll fix it soon.


@cri-s I have this just about ready to go, but there is a conflict. You were concerned with the negation of the angle, but as far as I see it, it is necessary. OpenCV returns RotatedRect angles as -90 to 0 with negative angles being more counterclockwise. OpenPnP expects negative angles to be clockwise. How do you handle this conversion? I assume you do it in a ScriptRun stage, or a custom stage?


@DronMDF попробуй еще раз сделать push. Он вероятнее всего просто вышел за пределы разрешенного времени (120 сек) и его остановили. При новом push он доделает, что не сделал. Попробуй.


Whoops, sorry! Forgot to remove those lines before making the commit. Should be fixed now.


I added a photo when I create a post and I did more changes to the website


Not really sure why this commit has come up again since we spoke about this over in boxen/boxen#200 and settled on https://github.com/boxen/boxen/blob/master/boxen.gemspec#L6-L8 since the `gem.authors` has a different meaning to alumni or contributors.


Actually the only one that had an overlap was the Poppy seed from 1.7.10. Currently in 1.10.2 sugarcane and pumpkin make melons.

Dandelion was sugarcane and melon
Poppy was sugarcane and pumpkin

I switched Poppy to sugarcane and melon "just because melons are red"
I changed Dandelion to pumpkin and wheat


![](https://github.trello.services/images/mini-trello-icon.png) [Discord Bot](https://trello.com/c/8WL2zINW/1-discord-bot)


@Mprint I understood that your tests failed, but the later sentences and code examples make no sense.

Please provide example of your test code, relevant application code and error output.
Also it would be the best to raise an issue instead of commenting on commit.


great


[R/data_description.r:3:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L3) *style:* **Variable and function names should not be longer than 30 characters.**
```r
plotting_specifics_for_force_control <- function(forces, ylim, ticks) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:11:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L11) *style:* **Lines should not be more than 80 characters.**
```r
  title(main = "Forces from posture #1", sub = paste("Adept x:", adept_x_val, "Adept y:",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:16:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L16) *style:* **Lines should not be more than 80 characters.**
```r
plot_muscle_forces_over_time <- function(forces, minimum_tendon_force, maximum_tendon_force,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:18:9:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L18) *style:* **Use <-, not =, for assignment.**
```r
  ticks = seq(0, length(indices_of_interest) * 800, by = 400)
        ^
```
[R/data_description.r:19:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L19) *style:* **Lines should not be more than 80 characters.**
```r
  plotting_specifics_for_force_control(forces, ylim = c(minimum_tendon_force, maximum_tendon_force),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:21:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L21) *style:* **Lines should not be more than 80 characters.**
```r
  lapply(list(do.call("rbind", forces[indices_of_interest])), function(force_ts) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:23:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L23) *style:* **Lines should not be more than 80 characters.**
```r
      "M1", "M2", "M3", "M4", "M5", "M6"), ylim = c(minimum_tendon_force, maximum_tendon_force))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:28:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L28) *style:* **Lines should not be more than 80 characters.**
```r
plot_JR3_forces_over_time <- function(forces, minimum_tendon_force, maximum_tendon_force,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:28:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L28) *style:* **Variable or function name should be snake_case.**
```r
plot_JR3_forces_over_time <- function(forces, minimum_tendon_force, maximum_tendon_force,
^~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:35:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L35) *style:* **Lines should not be more than 80 characters.**
```r
  plotting_specifics_for_force_control(forces, ylim = c(-3.75, 1), ticks = seq(0,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:37:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L37) *style:* **Lines should not be more than 80 characters.**
```r
  smoothed_curves <- lapply(list(do.call("rbind", sample_of_forces)), plot_force_smoothed_curves)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:37:3:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L37) *warning:* **local variable ‘smoothed_curves’ assigned but may not be used**
```r
  smoothed_curves <- lapply(list(do.call("rbind", sample_of_forces)), plot_force_smoothed_curves)
  ^~~~~~~~~~~~~~~
```
[R/data_description.r:37:71:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L37) *warning:* **no visible binding for global variable ‘plot_force_smoothed_curves’**
```r
  smoothed_curves <- lapply(list(do.call("rbind", sample_of_forces)), plot_force_smoothed_curves)
                                                                      ^~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:43:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L43) *style:* **Lines should not be more than 80 characters.**
```r
    "FZ =", wrench_vector[3], ", ", "MX =", wrench_vector[4], ", ", "MY =", wrench_vector[5],
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:48:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L48) *style:* **Variable and function names should not be longer than 30 characters.**
```r
compose_dataframe_of_muscle_activation_patterns <- function(forces) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:49:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L49) *style:* **Lines should not be more than 80 characters.**
```r
  muscle_activation_patterns <- rbind(unique(forces$reference_M0), unique(forces$reference_M1),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:50:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L50) *style:* **Lines should not be more than 80 characters.**
```r
    unique(forces$reference_M2), unique(forces$reference_M3), unique(forces$reference_M4),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:52:44:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L52) *warning:* **no visible binding for global variable ‘muscle_names’**
```r
  row.names(muscle_activation_patterns) <- muscle_names
                                           ^~~~~~~~~~~~
```
[R/data_description.r:53:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L53) *style:* **Lines should not be more than 80 characters.**
```r
  colnames(muscle_activation_patterns) <- LETTERS[1:length(unique(forces$reference_M6))]
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:59:54:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L59) *style:* **Variable or function name should be snake_case.**
```r
plot_wrench_text <- function(wrench, x = -2, y = -5, add_SD = FALSE) {
                                                     ^~~~~~
```
[R/data_description.r:60:18:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L60) *warning:* **no visible global function definition for ‘wrench_vector_to_labeled_vals’**
```r
  wrench_text <- wrench_vector_to_labeled_vals(wrench)
                 ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:67:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L67) *style:* **Variable or function name should be snake_case.**
```r
plot_wrench_SD_text <- function(wrench_SD_vector, x = -2, y = 5) {
^~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:67:33:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L67) *style:* **Variable or function name should be snake_case.**
```r
plot_wrench_SD_text <- function(wrench_SD_vector, x = -2, y = 5) {
                                ^~~~~~~~~~~~~~~~
```
[R/data_description.r:68:3:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L68) *warning:* **no visible global function definition for ‘plot_wrench_text’**
```r
  plot_wrench_text(wrench_SD_vector, x, y, add_SD = TRUE)
  ^~~~~~~~~~~~~~~~
```
[R/data_description.r:76:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L76) *style:* **Lines should not be more than 80 characters.**
```r
  p_raw <- ggparcoord(dataframe_of_observations, scale = "globalminmax", alpha = 1,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:78:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L78) *style:* **Lines should not be more than 80 characters.**
```r
  p <- p_raw + theme_bw() + theme(panel.grid.major.x = element_line(color = "black",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:97:35:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L97) *style:* **Put spaces around all infix operators.**
```r
norm_vec <- function(x) sqrt(sum(x^2))
                                 ~^~
```
[R/data_description.r:99:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L99) *style:* **Variable or function name should be snake_case.**
```r
plot_output_wrench_FX_FY <- function(wrench, wrench_sd, xlim, ylim) {
^~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:100:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L100) *style:* **Lines should not be more than 80 characters.**
```r
  plot(NA, xlim = xlim, ylim = ylim, main = paste("Norm of w = ", norm_vec(wrench)),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:101:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L101) *style:* **Lines should not be more than 80 characters.**
```r
    xlab = paste("Fx is ", wrench[1]), ylab = paste("Fy is ", wrench[2]), asp = 1)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:102:5:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L102) *style:* **Use <-, not =, for assignment.**
```r
  x = wrench[1]
    ^
```
[R/data_description.r:103:5:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L103) *style:* **Use <-, not =, for assignment.**
```r
  y = wrench[2]
    ^
```
[R/data_description.r:104:5:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L104) *style:* **Use <-, not =, for assignment.**
```r
  z = wrench[3]
    ^
```
[R/data_description.r:105:3:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L105) *warning:* **local variable ‘x_sd’ assigned but may not be used**
```r
  x_sd = wrench_sd[1]
  ^~~~
```
[R/data_description.r:105:8:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L105) *style:* **Use <-, not =, for assignment.**
```r
  x_sd = wrench_sd[1]
       ^
```
[R/data_description.r:106:3:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L106) *warning:* **local variable ‘y_sd’ assigned but may not be used**
```r
  y_sd = wrench_sd[2]
  ^~~~
```
[R/data_description.r:106:8:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L106) *style:* **Use <-, not =, for assignment.**
```r
  y_sd = wrench_sd[2]
       ^
```
[R/data_description.r:107:3:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L107) *warning:* **local variable ‘z_sd’ assigned but may not be used**
```r
  z_sd = wrench_sd[3]  #unused as of yet
  ^~~~
```
[R/data_description.r:107:8:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L107) *style:* **Use <-, not =, for assignment.**
```r
  z_sd = wrench_sd[3]  #unused as of yet
       ^
```
[R/data_description.r:109:3:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L109) *warning:* **no visible global function definition for ‘plot_wrench_text’**
```r
  plot_wrench_text(wrench)
  ^~~~~~~~~~~~~~~~
```
[R/data_description.r:110:3:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L110) *warning:* **no visible global function definition for ‘plot_wrench_SD_text’**
```r
  plot_wrench_SD_text(wrench_sd)
  ^~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:111:3:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L111) *warning:* **no visible global function definition for ‘draw_circle_at_end_of_vector’**
```r
  draw_circle_at_end_of_vector(x, y, z)
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:116:18:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L116) *style:* **Use <-, not =, for assignment.**
```r
    circle_color = "green"
                 ^
```
[R/data_description.r:119:18:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L119) *style:* **Use <-, not =, for assignment.**
```r
    circle_color = "black"
                 ^
```
[R/data_description.r:122:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L122) *style:* **Lines should not be more than 80 characters.**
```r
  draw.circle(x, y, diameter, border = "black", col = circle_color, lty = 1, lwd = 1)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:122:3:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L122) *warning:* **no visible global function definition for ‘draw.circle’**
```r
  draw.circle(x, y, diameter, border = "black", col = circle_color, lty = 1, lwd = 1)
  ^~~~~~~~~~~
```
[R/data_description.r:126:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L126) *style:* **Lines should not be more than 80 characters.**
```r
plot_JR3_endpoint_force_vectors <- function(list_of_wrenches, list_of_SD_for_wrenches,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:126:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L126) *style:* **Variable and function names should not be longer than 30 characters.**
```r
plot_JR3_endpoint_force_vectors <- function(list_of_wrenches, list_of_SD_for_wrenches,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:126:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L126) *style:* **Variable or function name should be snake_case.**
```r
plot_JR3_endpoint_force_vectors <- function(list_of_wrenches, list_of_SD_for_wrenches,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:126:63:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L126) *style:* **Variable or function name should be snake_case.**
```r
plot_JR3_endpoint_force_vectors <- function(list_of_wrenches, list_of_SD_for_wrenches,
                                                              ^~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:131:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L131) *style:* **Lines should not be more than 80 characters.**
```r
    plot_output_wrench_FX_FY(list_of_wrenches[[x]], list_of_SD_for_wrenches[[x]],
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:141:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L141) *style:* **Lines should not be more than 80 characters.**
```r
list_of_mean_of_last_n_observations <- function(forces, indices_of_interest, n, force_column_names) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:141:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L141) *style:* **Variable and function names should not be longer than 30 characters.**
```r
list_of_mean_of_last_n_observations <- function(forces, indices_of_interest, n, force_column_names) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:151:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L151) *style:* **Lines should not be more than 80 characters.**
```r
sd_of_last_n_observations <- function(forces, indices_of_interest, n = 100, force_column_names) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:158:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L158) *style:* **Variable and function names should not be longer than 30 characters.**
```r
plot_porcupine_of_endpoint_wrenches <- function(forces) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:159:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L159) *style:* **Lines should not be more than 80 characters.**
```r
  wrench_observation_df <- do.call("rbind", forces)  #only grab the first posture
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:164:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L164) *style:* **Lines should not be more than 80 characters.**
```r
  scatterplot3d(wrench_observation_df[, 1], wrench_observation_df[, 2], wrench_observation_df[,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:165:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L165) *style:* **Lines should not be more than 80 characters.**
```r
    3], pch = 16, xlim = force_ranges[, 1], ylim = force_ranges[, 2], zlim = force_ranges[,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:169:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L169) *style:* **Lines should not be more than 80 characters.**
```r
  scatterplot3d(wrench_observation_df[, 4], wrench_observation_df[, 5], wrench_observation_df[,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:170:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L170) *style:* **Lines should not be more than 80 characters.**
```r
    6], pch = 16, xlim = force_ranges[, 4], ylim = force_ranges[, 5], zlim = force_ranges[,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:175:3:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L175) *style:* **Variable or function name should be snake_case.**
```r
  color.gradient <- function(x, colors = c("blue", "yellow"), colsteps = 100) {
  ^~~~~~~~~~~~~~
```
[R/data_description.r:176:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L176) *style:* **Lines should not be more than 80 characters.**
```r
    return(colorRampPalette(colors)(colsteps)[findInterval(x, seq(min(x), max(x),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:179:19:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L179) *style:* **Use <-, not =, for assignment.**
```r
  gradient_colors = c("blue", "yellow")
                  ^
```
[R/data_description.r:183:3:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L183) *warning:* **local variable ‘z_range_midpoint’ assigned but may not be used**
```r
  z_range_midpoint <- z_range_distance/2 + z_range[1]
  ^~~~~~~~~~~~~~~~
```
[R/data_description.r:183:39:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L183) *style:* **Put spaces around all infix operators.**
```r
  z_range_midpoint <- z_range_distance/2 + z_range[1]
                                     ~^~
```
[R/data_description.r:187:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L187) *style:* **Lines should not be more than 80 characters.**
```r
  segments(origin_points, origin_points, wrench_observation_df[, 1], wrench_observation_df[,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:189:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L189) *style:* **Lines should not be more than 80 characters.**
```r
  points(wrench_observation_df[, 1], wrench_observation_df[, 2], xlim = c(force_ranges[1,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:194:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L194) *style:* **Lines should not be more than 80 characters.**
```r
  legend_image <- as.raster(matrix(colorRampPalette(gradient_colors)(100), ncol = 1))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:197:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L197) *style:* **Lines should not be more than 80 characters.**
```r
  text(x = -1, y = seq(1, 3, l = length(values_to_label_on_legend)), labels = signif(values_to_label_on_legend,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:201:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L201) *style:* **Lines should not be more than 80 characters.**
```r
data_description_analysis <- function(first_data_chunk, minimum_tendon_force, maximum_tendon_force,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:203:15:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L203) *warning:* **no visible global function definition for ‘split_by_position’**
```r
  postures <- split_by_position(first_data_chunk$adept_x, first_data_chunk)
              ^~~~~~~~~~~~~~~~~
```
[R/data_description.r:204:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L204) *style:* **Lines should not be more than 80 characters.**
```r
  forces <- unlist(lapply(postures, split_by_reference_force), recursive = FALSE)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:204:37:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L204) *warning:* **no visible binding for global variable ‘split_by_reference_force’**
```r
  forces <- unlist(lapply(postures, split_by_reference_force), recursive = FALSE)
                                    ^~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:207:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L207) *style:* **Lines should not be more than 80 characters.**
```r
  muscle_activation_patterns <- do.call("rbind", lapply(forces[indices_of_interest],
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:209:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L209) *style:* **Lines should not be more than 80 characters.**
```r
  row.names(muscle_activation_patterns) <- LETTERS[1:length(indices_of_interest)]
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:210:8:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L210) *warning:* **no visible global function definition for ‘generate_parcoord_plot’**
```r
  p <- generate_parcoord_plot(muscle_activation_patterns)
       ^~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:215:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L215) *style:* **Lines should not be more than 80 characters.**
```r
  plot(plot_muscle_forces_over_time(forces, minimum_tendon_force, maximum_tendon_force,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:220:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L220) *style:* **Lines should not be more than 80 characters.**
```r
  plot(plot_JR3_forces_over_time(forces, minimum_tendon_force, maximum_tendon_force,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:224:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L224) *style:* **Lines should not be more than 80 characters.**
```r
  list_of_tail_wrench_mean <- list_of_mean_of_last_n_observations(forces, indices_of_interest,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:226:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L226) *style:* **Lines should not be more than 80 characters.**
```r
  list_of_tail_wrench_SD <- sd_of_last_n_observations(forces, indices_of_interest,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:226:3:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L226) *style:* **Variable or function name should be snake_case.**
```r
  list_of_tail_wrench_SD <- sd_of_last_n_observations(forces, indices_of_interest,
  ^~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:230:3:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L230) *style:* **Variable or function name should be snake_case.**
```r
  list_of_SD_for_wrenches <- lapply(list_of_tail_wrench_SD, as.numeric)
  ^~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:232:8:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L232) *style:* **Use <-, not =, for assignment.**
```r
  xlim = range(lapply(list_of_wrenches, function(x) {
       ^
```
[R/data_description.r:235:8:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L235) *style:* **Use <-, not =, for assignment.**
```r
  ylim = range(lapply(list_of_wrenches, function(x) {
       ^
```
[R/data_description.r:238:8:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L238) *style:* **Use <-, not =, for assignment.**
```r
  zlim = range(lapply(list_of_wrenches, function(x) {
       ^
```
[R/data_description.r:242:11:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L242) *style:* **Use <-, not =, for assignment.**
```r
  xlim[1] = xlim[1] - max(abs(zlim))
          ^
```
[R/data_description.r:244:11:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L244) *style:* **Use <-, not =, for assignment.**
```r
  xlim[2] = max(c(xlim[2] + max(abs(zlim)), 0))
          ^
```
[R/data_description.r:247:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L247) *style:* **Lines should not be more than 80 characters.**
```r
  plot_JR3_endpoint_force_vectors(list_of_wrenches, list_of_SD_for_wrenches, xlim,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:249:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L249) *style:* **Lines should not be more than 80 characters.**
```r
  indices_of_correctly_lengthed_forces <- which(lapply(forces, force_ts_len_is_acceptable) ==
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:249:3:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L249) *style:* **Variable and function names should not be longer than 30 characters.**
```r
  indices_of_correctly_lengthed_forces <- which(lapply(forces, force_ts_len_is_acceptable) ==
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:252:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L252) *style:* **Lines should not be more than 80 characters.**
```r
  force_extended_list <- list_of_mean_of_last_n_observations(forces, indices_of_interest = 1:length(forces),
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:254:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L254) *style:* **Lines should not be more than 80 characters.**
```r
  posture_1_viable_forces <- force_extended_list[indices_of_correctly_lengthed_forces]
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:255:3:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L255) *warning:* **no visible global function definition for ‘plot_porcupine_of_endpoint_wrenches’**
```r
  plot_porcupine_of_endpoint_wrenches(posture_1_viable_forces)
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:258:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L258) *style:* **Lines should not be more than 80 characters.**
```r
  elapsed_trial_times <- plot_force_trial_elapsed_time_distribution(forces[indices_of_correctly_lengthed_forces])
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:258:3:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L258) *warning:* **local variable ‘elapsed_trial_times’ assigned but may not be used**
```r
  elapsed_trial_times <- plot_force_trial_elapsed_time_distribution(forces[indices_of_correctly_lengthed_forces])
  ^~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:258:26:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L258) *warning:* **no visible global function definition for ‘plot_force_trial_elapsed_time_distribution’**
```r
  elapsed_trial_times <- plot_force_trial_elapsed_time_distribution(forces[indices_of_correctly_lengthed_forces])
                         ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:260:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L260) *style:* **Variable and function names should not be longer than 30 characters.**
```r
plot_force_trial_elapsed_time_distribution <- function(forces) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/data_description.r:262:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/data_description.r#L262) *style:* **Lines should not be more than 80 characters.**
```r
  hist(vector_of_times, breaks = 10, xlab = "Time per force trial (ms)", ylab = "Number of force trials",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:3:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/force_trial_stability.r#L3) *style:* **Lines should not be more than 80 characters.**
```r
##' @param last_n_milliseconds the number of tail milliseconds from which we should calculate the settled standard deviation.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:5:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/force_trial_stability.r#L5) *style:* **Lines should not be more than 80 characters.**
```r
##' @return reference_standard_deviation df with reference (desired) muscle tension, variance, maximum residual
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:6:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/force_trial_stability.r#L6) *style:* **Lines should not be more than 80 characters.**
```r
get_reference_to_variance_relationship_df <- function(force_list, last_n_milliseconds,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:6:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/force_trial_stability.r#L6) *style:* **Variable and function names should not be longer than 30 characters.**
```r
get_reference_to_variance_relationship_df <- function(force_list, last_n_milliseconds,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:9:25:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/force_trial_stability.r#L9) *warning:* **no visible global function definition for ‘reference’**
```r
    ref <- tail(x, 1)[, reference(muscle)]
                        ^~~~~~~~~
```
[R/force_trial_stability.r:10:5:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/force_trial_stability.r#L10) *warning:* **no visible global function definition for ‘measured’**
```r
    measured_tail <- tail(x, last_n_milliseconds)[, measured(muscle)]
    ^~~~~~~~
```
[R/force_trial_stability.r:19:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/force_trial_stability.r#L19) *style:* **Lines should not be more than 80 characters.**
```r
##' @param last_n_milliseconds the number of tail milliseconds from which we should calculate the settled standard deviation.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:22:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/force_trial_stability.r#L22) *style:* **Lines should not be more than 80 characters.**
```r
force_trial_to_stable_metrics <- function(force_trial, last_n_milliseconds, muscle) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:23:33:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/force_trial_stability.r#L23) *warning:* **no visible global function definition for ‘reference’**
```r
  ref <- tail(force_trial, 1)[, reference(muscle)]
                                ^~~~~~~~~
```
[R/force_trial_stability.r:24:3:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/force_trial_stability.r#L24) *warning:* **no visible global function definition for ‘measured’**
```r
  measured_tail <- tail(force_trial, last_n_milliseconds)[, measured(muscle)]
  ^~~~~~~~
```
[R/force_trial_stability.r:26:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/force_trial_stability.r#L26) *style:* **Lines should not be more than 80 characters.**
```r
  vec_row = data.frame(last_n_milliseconds = last_n_milliseconds, reference = ref,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:26:11:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/force_trial_stability.r#L26) *style:* **Use <-, not =, for assignment.**
```r
  vec_row = data.frame(last_n_milliseconds = last_n_milliseconds, reference = ref,
          ^
```
[R/force_trial_stability.r:32:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/force_trial_stability.r#L32) *style:* **Lines should not be more than 80 characters.**
```r
##' @param last_n_milliseconds the number of tail milliseconds from which we should calculate the settled standard deviation.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:34:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/force_trial_stability.r#L34) *style:* **Lines should not be more than 80 characters.**
```r
##' @return stability_df_rows df with reference (desired) muscle tension, variance, maximum residual
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:35:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/force_trial_stability.r#L35) *style:* **Lines should not be more than 80 characters.**
```r
posture_list_to_stability_metrics_df_rows <- function(list_of_force_trials, last_n_milliseconds,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:35:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/force_trial_stability.r#L35) *style:* **Variable and function names should not be longer than 30 characters.**
```r
posture_list_to_stability_metrics_df_rows <- function(list_of_force_trials, last_n_milliseconds,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:37:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/force_trial_stability.r#L37) *style:* **Lines should not be more than 80 characters.**
```r
  reference_df_rows <- lapply(list_of_force_trials, force_trial_to_stable_metrics,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:44:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/force_trial_stability.r#L44) *style:* **Lines should not be more than 80 characters.**
```r
##' Produces a plot of remaining fraction as a function of increasing err threshold. Draws a hardcoded line for the 99%
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:45:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/force_trial_stability.r#L45) *style:* **Lines should not be more than 80 characters.**
```r
##' @param force_trials a list of raw force timeseries_DFs. has_settled has not been applied yet
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:46:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/force_trial_stability.r#L46) *style:* **Lines should not be more than 80 characters.**
```r
##' @param err_lenout integer, the resolution along the X axis by which diff err thresholds will be evaluated
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:48:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/force_trial_stability.r#L48) *style:* **Variable and function names should not be longer than 30 characters.**
```r
try_different_stability_thresholds <- function(force_trials, err_lenout = 20) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:50:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/force_trial_stability.r#L50) *style:* **Lines should not be more than 80 characters.**
```r
  num_remaining_force_trials <- unlist(mclapply(different_errors, function(err) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:51:12:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/force_trial_stability.r#L51) *warning:* **no visible global function definition for ‘remove_unsettled_force_trials’**
```r
    length(remove_unsettled_force_trials(force_trials, err))
           ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:53:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/force_trial_stability.r#L53) *style:* **Lines should not be more than 80 characters.**
```r
  plot_remaining_force_trial_fraction_as_function_of_err(different_errors, num_remaining_force_trials,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:61:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/force_trial_stability.r#L61) *style:* **Lines should not be more than 80 characters.**
```r
indices_from_posture_df_row <- function(posture_df_row) c(posture_df_row[["initial"]],
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:65:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/force_trial_stability.r#L65) *style:* **Lines should not be more than 80 characters.**
```r
##' Turn a dataframe of collected observations, with square input to reference, into formal ForceTrial objects
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:66:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/force_trial_stability.r#L66) *style:* **Lines should not be more than 80 characters.**
```r
##' Works with stabilized or nonstabilized force trials. It will add attributes of stabilization only for those that meet the err criteria
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:68:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/force_trial_stability.r#L68) *style:* **Lines should not be more than 80 characters.**
```r
##' @param df_row dataframe with 1 row with columns including the initial and final indices in reference to a posture collected.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:72:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/force_trial_stability.r#L72) *style:* **Lines should not be more than 80 characters.**
```r
##' @param err max allowable residual from reference force for muscle of interest
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:73:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/force_trial_stability.r#L73) *style:* **Lines should not be more than 80 characters.**
```r
save_ForceTrials_to_rds <- function(df_row, column_to_separate_forces, data_location,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:73:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/force_trial_stability.r#L73) *style:* **Variable or function name should be snake_case.**
```r
save_ForceTrials_to_rds <- function(df_row, column_to_separate_forces, data_location,
^~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:75:14:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/force_trial_stability.r#L75) *warning:* **no visible global function definition for ‘indices_from_posture_df_row’**
```r
  indices <- indices_from_posture_df_row(df_row)
             ^~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:76:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/force_trial_stability.r#L76) *style:* **Lines should not be more than 80 characters.**
```r
  force_trial_file_string_with_posture <- paste0("force_trial_adept_x_", df_row[["adept_x"]],
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:76:3:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/force_trial_stability.r#L76) *style:* **Variable and function names should not be longer than 30 characters.**
```r
  force_trial_file_string_with_posture <- paste0("force_trial_adept_x_", df_row[["adept_x"]],
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:78:17:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/force_trial_stability.r#L78) *warning:* **no visible global function definition for ‘get_forces_list’**
```r
  force_list <- get_forces_list(full_df, indices, column_to_separate_forces)
                ^~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:80:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/force_trial_stability.r#L80) *style:* **Lines should not be more than 80 characters.**
```r
  force_trials_list <- lapply(force_list, ForceTrial, data_location, full_df, err)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:80:43:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/force_trial_stability.r#L80) *warning:* **no visible binding for global variable ‘ForceTrial’**
```r
  force_trials_list <- lapply(force_list, ForceTrial, data_location, full_df, err)
                                          ^~~~~~~~~~
```
[R/force_trial_stability.r:82:3:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/force_trial_stability.r#L82) *warning:* **no visible global function definition for ‘save_rds_to_Resilio’**
```r
  save_rds_to_Resilio(force_trials_list, force_trial_file_string_with_posture)
  ^~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:87:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/force_trial_stability.r#L87) *style:* **Lines should not be more than 80 characters.**
```r
##' Turn a dataframe of collected observations, with square input to reference, into formal ForceTrial objects
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:88:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/force_trial_stability.r#L88) *style:* **Lines should not be more than 80 characters.**
```r
##' Works with stabilized or nonstabilized force trials. It will add attributes of stabilization only for those that meet the err criteria
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:90:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/force_trial_stability.r#L90) *style:* **Lines should not be more than 80 characters.**
```r
##' @param df_of_postures dataframe with columns including the initial and final indices in reference to each posture group collected.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:91:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/force_trial_stability.r#L91) *style:* **Lines should not be more than 80 characters.**
```r
##' @param full_df dataframe object of the full dataset collected, from which the indices will extract the sections.
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:93:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/force_trial_stability.r#L93) *style:* **Lines should not be more than 80 characters.**
```r
posture_start_finish_indices_to_L_of_ForceTrials <- function(df_of_postures, full_df,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:93:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/force_trial_stability.r#L93) *style:* **Variable and function names should not be longer than 30 characters.**
```r
posture_start_finish_indices_to_L_of_ForceTrials <- function(df_of_postures, full_df,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:93:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/force_trial_stability.r#L93) *style:* **Variable or function name should be snake_case.**
```r
posture_start_finish_indices_to_L_of_ForceTrials <- function(df_of_postures, full_df,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:95:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/force_trial_stability.r#L95) *style:* **Lines should not be more than 80 characters.**
```r
  lapply(df_to_list_of_rows(df_of_postures), save_ForceTrials_to_rds, column_to_separate_forces = "measured_M0",
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:104:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/force_trial_stability.r#L104) *style:* **Lines should not be more than 80 characters.**
```r
  max_residuals_and_sd <- lapply(posture, ForceTrial_to_signed_max_residual_and_sd)
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:104:43:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/force_trial_stability.r#L104) *warning:* **no visible binding for global variable ‘ForceTrial_to_signed_max_residual_and_sd’**
```r
  max_residuals_and_sd <- lapply(posture, ForceTrial_to_signed_max_residual_and_sd)
                                          ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:105:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/force_trial_stability.r#L105) *style:* **Lines should not be more than 80 characters.**
```r
  stability <- cbind(ForceTrials_to_stability_info_df(posture), ForceTrials_to_stability_df(posture))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:105:22:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/force_trial_stability.r#L105) *warning:* **no visible global function definition for ‘ForceTrials_to_stability_info_df’**
```r
  stability <- cbind(ForceTrials_to_stability_info_df(posture), ForceTrials_to_stability_df(posture))
                     ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:105:65:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/force_trial_stability.r#L105) *warning:* **no visible global function definition for ‘ForceTrials_to_stability_df’**
```r
  stability <- cbind(ForceTrials_to_stability_info_df(posture), ForceTrials_to_stability_df(posture))
                                                                ^~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:106:19:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/force_trial_stability.r#L106) *warning:* **no visible global function definition for ‘adept_coordinates_from_ForceTrial’**
```r
  adept_coords <- adept_coordinates_from_ForceTrial(posture[[1]])
                  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:107:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/force_trial_stability.r#L107) *style:* **Lines should not be more than 80 characters.**
```r
  posture_and_residual_sd <- dcrb(lapply(max_residuals_and_sd, add_posture_to_max_residual_and_sd,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:113:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/force_trial_stability.r#L113) *style:* **Lines should not be more than 80 characters.**
```r
##' @param rds_postures list of full filepaths to each rds Posture, each with a list of ForceTrials
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:114:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/force_trial_stability.r#L114) *style:* **Lines should not be more than 80 characters.**
```r
##' @return stability_df data.frame with all stabiliyt information observations at postures. Includes adept xy coordinates
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:115:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/force_trial_stability.r#L115) *style:* **Variable and function names should not be longer than 30 characters.**
```r
get_stability_df_for_all_postures <- function(rds_postures) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:116:19:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/force_trial_stability.r#L116) *warning:* **no visible global function definition for ‘dcrb’, Did you mean 'dir'?**
```r
  stability_df <- dcrb(pbmclapply(rds_postures, posture_path_to_stability_df))
                  ^~~~
```
[R/force_trial_stability.r:116:24:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/force_trial_stability.r#L116) *warning:* **no visible global function definition for ‘pbmclapply’**
```r
  stability_df <- dcrb(pbmclapply(rds_postures, posture_path_to_stability_df))
                       ^~~~~~~~~~
```
[R/force_trial_stability.r:116:49:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/force_trial_stability.r#L116) *warning:* **no visible binding for global variable ‘posture_path_to_stability_df’**
```r
  stability_df <- dcrb(pbmclapply(rds_postures, posture_path_to_stability_df))
                                                ^~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:123:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/force_trial_stability.r#L123) *style:* **Lines should not be more than 80 characters.**
```r
##' @param stability_df dataframe with adept_x and adept_y column, sd, and signed_max_residual
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:126:13:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/force_trial_stability.r#L126) *style:* **Use <-, not =, for assignment.**
```r
  my_breaks = c(1, 10, 100, 1000, 10000, 1e+05)
            ^
```
[R/force_trial_stability.r:127:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/force_trial_stability.r#L127) *style:* **Lines should not be more than 80 characters.**
```r
  ggplot(stability_df, aes(sd, signed_max_residual)) + theme_bw() + stat_binhex(bins = 100) +
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:128:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/force_trial_stability.r#L128) *style:* **Lines should not be more than 80 characters.**
```r
    scale_fill_gradient(name = "count", trans = "log", breaks = my_breaks, labels = my_breaks) +
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:133:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/force_trial_stability.r#L133) *style:* **Lines should not be more than 80 characters.**
```r
##' @param list_of_stability_dfs dataframes with adept_x and adept_y column, sd, and signed_max_residual. first is fix_x_sdres
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:134:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/force_trial_stability.r#L134) *style:* **Lines should not be more than 80 characters.**
```r
##' @param adept_dimension_that_changes either 'adept_x' or 'adept_y', describing the one that is changing
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:136:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/force_trial_stability.r#L136) *style:* **Lines should not be more than 80 characters.**
```r
sd_residual_plot_scatter_posture <- function(stability_df, adept_dimension_that_changes,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:136:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/force_trial_stability.r#L136) *style:* **Variable and function names should not be longer than 30 characters.**
```r
sd_residual_plot_scatter_posture <- function(stability_df, adept_dimension_that_changes,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:138:3:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/force_trial_stability.r#L138) *warning:* **local variable ‘my_breaks’ assigned but may not be used**
```r
  my_breaks = c(1, 10, 100, 1000, 10000, 1e+05)
  ^~~~~~~~~
```
[R/force_trial_stability.r:138:13:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/force_trial_stability.r#L138) *style:* **Use <-, not =, for assignment.**
```r
  my_breaks = c(1, 10, 100, 1000, 10000, 1e+05)
            ^
```
[R/force_trial_stability.r:139:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/force_trial_stability.r#L139) *style:* **Lines should not be more than 80 characters.**
```r
  p <- ggplot(stability_df, aes(sd, signed_max_residual)) + geom_point(size = size) +
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:140:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/force_trial_stability.r#L140) *style:* **Lines should not be more than 80 characters.**
```r
    theme_bw() + xlab(paste("sd of last 100ms,", adept_dimension_that_changes)) +
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:146:2:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/force_trial_stability.r#L146) *style:* **Commented code should be removed.**
```r
##' the length of the whiskers =  1.5 the IQR
 ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:147:2:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/force_trial_stability.r#L147) *style:* **Commented code should be removed.**
```r
##' @param stability_df dataframe with adept_* and y variable to respond
 ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:148:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/force_trial_stability.r#L148) *style:* **Lines should not be more than 80 characters.**
```r
##' @param adept_dimension_that_changes either 'adept_x' or 'adept_y', describing the one that is changing
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:151:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/force_trial_stability.r#L151) *style:* **Lines should not be more than 80 characters.**
```r
adept_boxplots <- function(stability_df, adept_dimension_that_changes, response_variable) {
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:153:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/force_trial_stability.r#L153) *style:* **Lines should not be more than 80 characters.**
```r
  min_distance_between_adept_postures <- abs(min(diff(unique(stability_df[[adept_dimension_that_changes]])))) *
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:153:3:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/force_trial_stability.r#L153) *style:* **Variable and function names should not be longer than 30 characters.**
```r
  min_distance_between_adept_postures <- abs(min(diff(unique(stability_df[[adept_dimension_that_changes]])))) *
  ^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:155:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/force_trial_stability.r#L155) *style:* **Lines should not be more than 80 characters.**
```r
  p <- ggplot(stability_df, aes_string(y = response_variable, group = adept_dimension_that_changes))
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:155:8:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/force_trial_stability.r#L155) *warning:* **no visible global function definition for ‘ggplot’, Did you mean 'biplot'?**
```r
  p <- ggplot(stability_df, aes_string(y = response_variable, group = adept_dimension_that_changes))
       ^~~~~~
```
[R/force_trial_stability.r:155:29:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/force_trial_stability.r#L155) *warning:* **no visible global function definition for ‘aes_string’**
```r
  p <- ggplot(stability_df, aes_string(y = response_variable, group = adept_dimension_that_changes))
                            ^~~~~~~~~~
```
[R/force_trial_stability.r:156:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/force_trial_stability.r#L156) *style:* **Lines should not be more than 80 characters.**
```r
  p <- p + geom_boxplot(aes_string(cut_width(stability_df[[adept_dimension_that_changes]],
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```
[R/force_trial_stability.r:157:1:](https://github.com/bc/frontiers2017/blob/685539166a9206ab108bc20da9e041b20b533384/R/force_trial_stability.r#L157) *style:* **Lines should not be more than 80 characters.**
```r
    min_distance_between_adept_postures)), outlier.alpha = 0.2, outlier.size = 0.1,
^~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
```


PS.: Correção do Requisito 2 *****


deleted unnecssary file


Aw, I rather liked the _precious_ Lord of the Rings jokes. Obviously, when the project starts, that is a little different, but while it is just sitting here... :)


This wasn't that serious of an issue, but it broke the `nrmock` sub package of the https://github.com/TV4/nrcontext project (since it is used to mock the `newrelic.Application` interface)


Hello,
looks like there is no double-import-doc.xsd, can you please upload it?
Thank you


I was confused that the doctest doesn't catch this, but `slice::Iter::rposition` is specialized on its own.


You need to add `--include example` as well, because it's no longer special-cased; the default is just `test` as it was initially.


Thanks @force2b for the update. The refactoring was applied to be consistent and replace creating a mock Account Id with a constant in all affected unit tests. No change in the behaviour was done. I am sorry this will create merge conflicts especially since the method signature has changed in the rollup branch.  Thanks for letting me know.


It's because we're assuming that resource/asset path pairs correspond 1:1 to a library dependency (which I think is true?). Can you just provide an empty asset path corresponding to each res directory?


see NO_CMD_OPT


okay, makes sense


No worries. I just wanted you to know that we rebuilt the logic to remove the extra query.


I don't quite like it. But I see the point about transparent versioning.
Still, I'd prefer
1. remove both `versioning_force` and this one until we'll have a request for transparent versioning
or
2. replace these two variables with one, precisely, `transparent_versioning` or something along these lines


That looks like you do.


Thank you @lindenb. Originally from [here ](https://gist.github.com/lindenb/04ed876dc6581f33f19682968ae37bb5#file-transform-xsl)


When this commit will be released?


Added contributor details.  Changed to template-based approach using routing.


`ALL` is useful for debugging, but it directly contradicts the use case for this variable. Basically, nobody will ever use it besides you and test cases that you have written.


The doctest might catch this -- if the doctest build wasn't broken first :P

Thanks for spotting what I screwed up; my evening was going to be digging into why everything is horrifically broken with this change as-is...


Funny that nobody noticed it before now. The original file name (added in commit https://github.com/TrinityCore/TrinityCore/commit/b59ca1cc81c08bbe043f8974f41fee191e7fd6ad ) looked like it was supposed to be part of a commit before TDB 335.63 release date.


Subtraktion , Division und Multiplikation werden nach dem gleichen Shema eingebaut.


@dannypernik variable `disc` is not defined in this context


Échale un vistazo a los métodos de `StackDataStructure` que tienen más o menos las mismas mejoras:
* Puedes evitar if/else
* Puedes utilizar operadores ternarios `condición ? valor si true : valor si false`
* Acuérdate de utilizar `===` en vez de `==`
* Acostúmbrate a poner bien la indentación y los espacios, es bueno hacerlo desde el principio.

Cualquier duda me dices!


yeah, found it while cherry picking to 4.3.4 XD


isn't this redundant given lines 125/6?