r - Using purrr::map for recursive function call -


i have list within data frame on want use purrr::map() test whether there null elements , rid of them.

while able using sapply, map doesn't work. read https://cran.r-project.org/web/packages/purrr/purrr.pdf, can't figure out what's missing.

here's sapply code --this works well:

p_trans<- p_trans[!sapply(p_trans$group,is.null),]

here's few things tried purrr::map, don't work.

here 4 things tried:

a) 

p_trans %>% purrr::map(.,~is.null(group))

b)

p_trans %>% purrr::map(.,~is.null(.$group))

c)

p_trans %>% purrr::map(~is.null(.$group))

d) 

p_trans %>% purrr::map(~is.null(group))

can please correct mistake, , let me know doing wrong above 4 options?

data:

dput(p_trans)  structure(list(transactionid = c("a1", "a1", "a1", "a2", "a2",  "a2", "a3", "a3", "a3", "a3", "a4", "a5", "a5", "a5", "a5", "a5",  "a6", "a6", "a7"), productid = c("a", "b", "1", "c", "4", "5",  "d", "c", "7", "8", "h", "1", "2", "3", "3", "1", "h", "15",  "22"), producttype = c(1, 1, 2, 1, 2, 2, 1, 1, 2, 2, 1, 2, 2,  2, 2, 2, 1, 2, 3), group = list(structure(list(group = "group1"), .names = "group", row.names = c(na,  -1l), class = c("tbl_df", "tbl", "data.frame")), structure(list(     group = "group1"), .names = "group", row.names = c(na, -1l ), class = c("tbl_df", "tbl", "data.frame")), structure(list(     group = "group1"), .names = "group", row.names = c(na, -1l ), class = c("tbl_df", "tbl", "data.frame")), structure(list(     group = c("group2", "group3")), .names = "group", row.names = c(na,  -2l), class = c("tbl_df", "tbl", "data.frame")), structure(list(     group = "group2"), .names = "group", row.names = c(na, -1l ), class = c("tbl_df", "tbl", "data.frame")), structure(list(     group = "group2"), .names = "group", row.names = c(na, -1l ), class = c("tbl_df", "tbl", "data.frame")), structure(list(     group = "group3"), .names = "group", row.names = c(na, -1l ), class = c("tbl_df", "tbl", "data.frame")), structure(list(     group = c("group2", "group3")), .names = "group", row.names = c(na,  -2l), class = c("tbl_df", "tbl", "data.frame")), structure(list(     group = "group3"), .names = "group", row.names = c(na, -1l ), class = c("tbl_df", "tbl", "data.frame")), structure(list(     group = "group3"), .names = "group", row.names = c(na, -1l ), class = c("tbl_df", "tbl", "data.frame")), structure(list(     group = "group5"), .names = "group", row.names = c(na, -1l ), class = c("tbl_df", "tbl", "data.frame")), structure(list(     group = "group1"), .names = "group", row.names = c(na, -1l ), class = c("tbl_df", "tbl", "data.frame")), structure(list(     group = "group1"), .names = "group", row.names = c(na, -1l ), class = c("tbl_df", "tbl", "data.frame")), structure(list(     group = "group1"), .names = "group", row.names = c(na, -1l ), class = c("tbl_df", "tbl", "data.frame")), structure(list(     group = "group1"), .names = "group", row.names = c(na, -1l ), class = c("tbl_df", "tbl", "data.frame")), structure(list(     group = "group1"), .names = "group", row.names = c(na, -1l ), class = c("tbl_df", "tbl", "data.frame")), structure(list(     group = "group5"), .names = "group", row.names = c(na, -1l ), class = c("tbl_df", "tbl", "data.frame")), structure(list(     group = "group5"), .names = "group", row.names = c(na, -1l ), class = c("tbl_df", "tbl", "data.frame")), null)), class = c("tbl_df",  "tbl", "data.frame"), row.names = c(na, -19l), .names = c("transactionid",  "productid", "producttype", "group"))


-

Comments

Post a Comment

Popular posts from this blog

java - SSE Emitter : Manage timeouts and complete() -

i writing web app multiple listeners(evcentsource sse clients js) connected server . want store sse emitter per connected listener : can done in memory or other means assigning id each client able achieve far now question ; how send response/event specific client connected web app ? while doing sseemmiters stored either getting completed or timed out. how prevent ? how keep sseemmiter available open infinite time (till client closes) , send events selectively .
Read more

jquery - uncaught exception: DataTables Editor - remote hosting of code not allowed -

i'm trying implement crud operation using datatableseditor using datatables.but i'm getting error messages: 1)uncaught exception: datatables editor - remote hosting of code not allowed. please see http://editor.datatables.net details on how purchase editor license 2)typeerror: a.editor undefined 3) $.fn.datatable.editor not constructor" what reason? here configuration: <%@ page language="java" contenttype="text/html; charset=iso-8859-1" pageencoding="iso-8859-1"%> <!doctype html public "-//w3c//dtd html 4.01 transitional//en" "http://www.w3.org/tr/html4/loose.dtd"> <html> <head> <meta http-equiv="content-type" content="text/html; charset=iso-8859-1"> <title>insert title here</title> <link rel="stylesheet" type="text/css" href="//cdn.datatables.net/1.10.12/css/jquery.datatables.min.css"> <link re...
Read more

java - How to resolve error - package com.squareup.okhttp3 doesn't exist? -

i trying convert json java object use of gson in maven, following youtube video guidance - https://www.youtube.com/watch?v=vqgghm9pwe0 , theres error occurs when in main class error - package com.squareup.okhttp3 doesn't exist. code below: java package com.codebeasty.json; import com.squareup.okhttp3.okhttpclient; public class main { private static okhttpclient client = new okhttpclient(); public static void main (string [] args) { } } i put in dependency in pom.xml: <dependencies> <dependency> <groupid>com.squareup.okhttp3</groupid> <artifactid>okhttp</artifactid> <version>3.4.2</version> </dependency> <dependency> <groupid>com.google.code.gson</groupid> <artifactid>gson</artifactid> <version>2.8.0</version> </dependency> </dependencies> i dont understand why doesn't recognize com.squareup. there may need download? have downl...
Read more