dmurdoch
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| library(shiny) | |
| ui <- fluidPage( | |
| # Application title | |
| titlePanel("mtcars"), | |
| sidebarLayout( | |
| sidebarPanel( | |
| sliderInput("mpg", "mpg Limit", |
dmurdoch
/ dupnames.R
Last active
February 18, 2024 20:19
Search R package for duplicate definitions
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| # While in the top level directory of a package, run `dupnames()` to check the source for multiple | |
| # definitions of the same identifier. The *last* definition is the one that will be included in your | |
| # package; earlier ones are overwritten. | |
| containsNames <- function(expr, names) { | |
| if (is.name(expr) && as.character(expr) %in% names) | |
| return(TRUE) | |
| if (is.call(expr)) { | |
| fn <- expr[[1]] | |
| if (is.name(fn) && as.character(fn) == "function") |