Comments (1)
The beginning of your function is testing if(is.null(sel_col_x))
and that's causing the error to occur because it's trying to test if an object named "z" is null. "z" doesn't exist outside of the context of the data.table, but at this point R is still looking for it in the global environment.
So you just need to use enexpr()
before you test for NULL.
overlap = function(x, y, sel_col_x=NULL, sel_col_y=NULL){
sel_col_x <- enexpr(sel_col_x)
sel_col_y <- enexpr(sel_col_y)
if(any((class(x)) == 'data.table')){
if(is.null(sel_col_x)){
stop('sel_col_x cannot be NULL for data.table objects')
}
x = tidytable::dt_distinct(x, !!sel_col_x)
x = tidytable::dt_pull(x, !!sel_col_x)
}
if(any((class(y)) == 'data.table')){
if(is.null(sel_col_y)){
stop('sel_col_y cannot be NULL for data.table objects')
}
y = tidytable::dt_distinct(y, !!sel_col_y)
y = tidytable::dt_pull(y, !!sel_col_y)
}
cat('intersect(x,y):', length(intersect(x,y)), '\n')
cat('setdiff(x,y):', length(setdiff(x,y)), '\n')
cat('setdiff(y,x):', length(setdiff(y,x)), '\n')
cat('union(x,y):', length(union(x,y)), '\n')
}
R can now test if the expression "sel_col_x" is NULL, which it won't be because "z" is being passed, but R no longer looks for "z" in the global environment because it is an expression.
Here's the code for dt_pull()
. Notice how in dt_pull.tidytable
I use enexpr()
on "var" and then test for NULL? That's what you need to do as well.
Hope this makes sense! If you have any other questions let me know.
from tidytable.
Related Issues (20)
- `distinct` not working with lists HOT 2
- using `pick()` inside `count()` leads to an unhelpful error HOT 5
- deprecated notation HOT 1
- Bug: unnest() HOT 2
- Failure with dev glue HOT 3
- Release v0.11.0 HOT 1
- When two tidytables are subtracted, the class `tidytable` gets lost on the way. HOT 2
- weird error using testthat HOT 2
- exposing list_flatten HOT 1
- summarize with across behaves in a strange way and gives an error when I use lapply inside
- Renaming in `group_by()` can lead to grouping by nonexistent columns
- ifelse and if_else HOT 1
- pmap is not working for data frames HOT 1
- Error "mutate_rowwise()" several columns. HOT 2
- Group_by bug with purrr::reduce HOT 4
- pmap() doesn't name list elements using existing names HOT 2
- `tidytable` objects are not printed after loading `quarto` HOT 4
- `group_by` + equality `filter` on column with `NA` values introduces `NA` rows HOT 2
- Allow paged printing in `rmarkdown`
- Release v0.11.1
Recommend Projects
-
React
A declarative, efficient, and flexible JavaScript library for building user interfaces.
-
Vue.js
🖖 Vue.js is a progressive, incrementally-adoptable JavaScript framework for building UI on the web.
-
Typescript
TypeScript is a superset of JavaScript that compiles to clean JavaScript output.
-
TensorFlow
An Open Source Machine Learning Framework for Everyone
-
Django
The Web framework for perfectionists with deadlines.
-
Laravel
A PHP framework for web artisans
-
D3
Bring data to life with SVG, Canvas and HTML. 📊📈🎉
-
Recommend Topics
-
javascript
JavaScript (JS) is a lightweight interpreted programming language with first-class functions.
-
web
Some thing interesting about web. New door for the world.
-
server
A server is a program made to process requests and deliver data to clients.
-
Machine learning
Machine learning is a way of modeling and interpreting data that allows a piece of software to respond intelligently.
-
Visualization
Some thing interesting about visualization, use data art
-
Game
Some thing interesting about game, make everyone happy.
Recommend Org
-
Facebook
We are working to build community through open source technology. NB: members must have two-factor auth.
-
Microsoft
Open source projects and samples from Microsoft.
-
Google
Google ❤️ Open Source for everyone.
-
Alibaba
Alibaba Open Source for everyone
-
D3
Data-Driven Documents codes.
-
Tencent
China tencent open source team.
from tidytable.