funciones - Renombrar objetos en RStudio sensible al contexto dentro de todo el proyecto

funciones en r studio

Question

Tengo un problema al desarrollar un proyecto R usando RStudio. Creo un objeto y luego me doy cuenta de que quiero darle otro nombre. Luego tengo que cambiar manualmente el nombre, lo que en los proyectos más grandes es molesto y con frecuencia resulta en errores, ya que superviso fácilmente una línea. La función de replace all de RStudio no coincide exactamente con el nombre que estoy tratando de reemplazar, ya que solo lo hace en un archivo, tampoco considera solo las referencias de la variable ver código de ejemplo:

f <- function(a){
b <- a
return(a+b)
}
a <- 5;
a <- a + f(1)

En esa muestra, me gustaría cambiar el nombre a solo dentro de la función. Tendría que hacer eso tres veces, mientras que replace all arruinaría mi código fuera de la función. No quiero editar eso a . Es decir, Visual Studio tiene la opción de cambiar el nombre de una variable usando la tecla de acceso rápido: Ctrl + . . Luego, Visual Studio cambia el nombre de la variable y sus referencias en todo el proyecto, sin editar las variables con el mismo nombre que no tienen una referencia al editado. No he podido encontrar una opción así en RStudio. ¿Hay un equivalente?

Answer 1

RStudio IDE v1.0 incluye una función llamada "Cambiar el nombre en el alcance" que apunta a hacer esto:

Esta característica facilita el cambio de nombre de todas las instancias de una variable. La herramienta es consciente del contexto; cambiando de m a m1 no cambiará mtcars a m1tcars .

No puedo encontrar documentación para la característica. Sin embargo, el ejemplo del GIF animado funciona cuando coloco el cursor en la primera instancia de d (el nombre de la variable a reemplazar), y luego selecciono Code -> Rename in Scope . Sin embargo, cuando intento los mismos pasos pero a partir de la segunda instancia, no funciona. ¿Entonces aparentemente necesitas comenzar desde el lugar donde se asigna la variable?

## Example from animated GIF
library(dplyr)
library(magrittr)
library(ggplot2)
d <- mtcars %>% ## Instance 1
filter(cyl > 4) %>%
select(hp, mpg)
ggplot(data = d, aes(x=hp, y=mpg)) + ## Instance 2
geom_point() +
geom_smooth()

En la práctica, parece que todavía hay errores que impiden que la función funcione. Por ejemplo, el siguiente ejemplo no funciona a menos que se elimine el encabezado.

## Header ####
example <- 1:10
example[1]