From fc90f2285a6eb294f0a699686ae2858bf8a724a3 Mon Sep 17 00:00:00 2001 From: Charlotte Wickham Date: Wed, 31 May 2017 07:57:10 -0700 Subject: [PATCH] use cran version of rwars --- code/swapi.R | 9 +++++---- data/swapi.rda | Bin 222884 -> 228297 bytes 2 files changed, 5 insertions(+), 4 deletions(-) diff --git a/code/swapi.R b/code/swapi.R index 75d3f04..9992a7b 100644 --- a/code/swapi.R +++ b/code/swapi.R @@ -1,5 +1,5 @@ ## http://swapi.co/ -# install_github("ironholds/rwars", ref = "0.5.0") +# install.packages("rwars") library(rwars) library(purrr) @@ -16,11 +16,12 @@ get_all <- function(x = NULL, old_data = NULL, fun, ...){ entities <- c("species", "people", "films", "vehicles", "starships", "planets") +entity_funs <- map(paste0("get_all_", entities), match.fun) -all_ents <- map(entities, - ~ get_all(fun = match.fun(paste0("get_all_", .x)), parse_result = TRUE)) +all_ents <- map(entity_funs, ~ get_all(fun = .x, parse_result = TRUE)) -all_ents <- map(all_ents, ~ transpose(.x)[["results"]] %>% flatten()) +all_ents_res <- map(all_ents, + ~ transpose(.x)[["results"]] %>% flatten()) map2(entities, all_ents, ~ assign(.x, .y, envir = globalenv())) diff --git a/data/swapi.rda b/data/swapi.rda index 0c1df8edceb6700870941b7fbb33276ac46b369f..234813dbc86aa0e6ea35c9403631dca840441a9f 100644 GIT binary patch delta 5688 zcmc&&3rtg280MVYTC9NyW8kzt%9(@a=mT+l7*9?@;lY>V46Gj!)ZXfK!2EE!GH+}nHq zbMCp{|DXT+ANSoaqrUhnN>jL`$gVC@M?^%x2!>(yYZ5IAdL2sz^gkks9)KPedT9A; zMZ|RapM+K!=fp0m_iUA^jt#y4D0-}BTy1*&N>qxR7isC~B?TYm$3G}NzT z_b5jnu2n$#h6i*ux1xgnxD}NZb=zwj#T!L!)sC_2$og$nP2Rfg4dR$;TUEpM>c$58 z41Mc=L#h*yI>dJZaVcI4jWA}TW4s0ksB~;cf-@m}I5UIblOHg(Zi zs!J0&457VB>bB3K|Hmz7!osE7|4EDOxV_4h)T~GPn=gpdy-N4E;YJ0IFml4WW8+{qQFrS;IR8Qr!#joe~g(cV7buY;o7m!jQGq z%(iu37CeLA2zC=^sXl&RDX|S7ZKBa}6wg-o)(Ou`;!rd`ZU-)Wy#&&&=*tJ;vz(me zQp@>S9+Rg>hSP%6wU3%n-6iTVR+jDWQ}IgEdv;(jb!PbVa0VifED)&C)?qyhM()Oi z4`)^ooZMarQT4{(I#zu*Wls2Tx`N>3Z0*BImTAFNL->GZ2LZ|%+YdBrJ}3wyP7Q&x6X?DM*jl z&;(2tTIx;6k17$|ScxaRcXbmu>A=pTU@hwGNCw$t&ry&Zg|D9l^U$w@3iMi+1wVKR z6p~fF;3E}2wgb#3j}Cyxm;h5EKLkY**p~Rsb}Jky{tR`RRPr1M8msR}K31L`$N+U9khkhW>{M&{fG-^Yg!s60zbf%>x~ ztuL@^223LKln~-dm@})Kt>*D;U3f(+OMugn=bWBYKLYp0O@%N2@&q&o^ksRYW z1zJh|dbku|Z57m#lqK-$SOITFK8C#dG>j4mAc_olD3VbUunM+Mlusk~*1)++9KVaM zcw_^71@M5htK+!3O+jkP;Cp^Lm6y?3MHMhjCOW?nc7?dS3ux_07{>2}oMHSfke1D` zF)_3h3x-rqF)30X#c<5)P*0-U;7y^m7x&RbHnhY2LT};=evY@`LQQB>CZ~^_gqHCn z+}9B!BcTe<^-v{RKZFO>ymR5t`rtf5PdYW;eF#1jJ1f^y`+~Q2lc}QGQ)}9|&AZ7% z7WTq^FfKhgavb(_m(^;|cHqaizzmXm3N8lArl$YK!{=b4g=XCenRtOLPbHz|!hj!P z(AEcfGGh?_BrwsWOu=tog7IYi5Iis|w0;&4<0OpW@yi*(S2fHJ@Y4`~Ckh5sP6#Pb zKOt<{jGhdQ!au@@RNi|@kvgcm@Rcpze+TNwh>p3f58vj?yDuqHU-yN3)>4~(V`aQy zL@MvUq)2`J7iUvFDS48)8W-9?$N8x|&?U(NUE$bwx3R7ZU|SJ2WPT;{EL=G?VM&B> F|6d1FZ#Mt{ delta 1386 zcmZWpZA@Eb6y}`UFB-12l$O#dy<;WaCWAtOU zWtj#?UhNwe79>%#Wiv`%;N8Lmwk2C8;Uh-bWRaoshZ;?ox-c|;+XX&RAn<~ngtR%;ZkO?*3ZKEpkWP^tFp!6YucFSJkvR>{!(jfW1i`!*{9>rfV!cD z%fAy-jY}=#nJy)!5hv@oI;vj>NVIQG?sRPOo|*bKgN^kp{NW%=?^@Y`Kiv<@hK;wT z!TbgV;#&*A7qM!5Flk$Bi-sy8gNGYnPEg~V%}{SqH%D*10V35mLpsk4!38fC71P1P z;HL8oo}*<~K_|QKrD7I8HUtln=)Ng9M1z-MOL!W*bjuZxc-s}I(I?rTtZNHMyIyNQ zlr2;411Dd(0gns+C-9q7Fo0x#Ku2efgTdg<%PH`Bi#&AkIAqI8*6^`exUP?|n!g1m zaFa@-omYPYUnE8ct!k5Z-Gy(pt20s$fJ&dBj-UMrzQcHU<`?)k23F36rz}CeUReUK zc>s4GQKUehNW)EB{y5d+;Ep0Z;fU~A@u3;A=)rTCM$0auhA-{Go60prb{D-GUil)5 zYf@3jZlL`RLCdez;mLSh$H!mBjauqEj3(MqiA1Bzdn}s{h-jfw6;8$VLi2Z{lluG7 ztSj;s=X>*L`4Pz0_RSA{}UJ zY~b!MaSXz5$(+4Kd4