testData/rename/renameParameterUsageInRmd.after.rmd

```{r}
# @type x : numeric
# @type y : numeric
test_function <- function(x1, y, z, d) {
    print("This is test function")
    barplot(x1)
    x1 + 1 + 1
    z
}

z <- "dsds"
y <- x + x
```

```{python}
x = 10
def test_function(x):
    return 42 + x
```

```{r}
x <- 10
y <- y * x
```