From 9ee1161054c6ad1dc356e05f29d90972acb8875f Mon Sep 17 00:00:00 2001 From: Andrew MacDonald Date: Sun, 15 Mar 2015 16:38:18 -0700 Subject: [PATCH] create data3 with a functional sequence --- .remake/db/2872c15b2a2a1f6f704174367c89aee0.rds | Bin 0 -> 340 bytes .remake/objects/data3 | Bin 0 -> 183 bytes .remake/objects/data3__hash | 1 + remake.yml | 5 ++++- rscript.R | 7 ++++++- 5 files changed, 11 insertions(+), 2 deletions(-) create mode 100644 .remake/db/2872c15b2a2a1f6f704174367c89aee0.rds create mode 100644 .remake/objects/data3 create mode 100644 .remake/objects/data3__hash diff --git a/.remake/db/2872c15b2a2a1f6f704174367c89aee0.rds b/.remake/db/2872c15b2a2a1f6f704174367c89aee0.rds new file mode 100644 index 0000000000000000000000000000000000000000..58ac60d715b6ae6119a2523b082ea4af053b4508 GIT binary patch literal 340 zcmV-a0jvHWiwFP!0000018q@DPQx$|b(2C{Bq$OW;0SJP$M&*IRv@wIuJUI>0yM4a z6u|+w5QpFfoP<5ClQa>HVkw^S%d_9io5ck}C_v#LL_t`lH+~x<6qa$|zsu@>z5IC? zRB?zVKAxFZ<(yBhD^d+kH_E)ICs@A0)@AFwf%Dx8wwY;Rg#L~<+vlt*6zPEHYyAwS z=%BX@#{>%y5oe5wNK-BoC51^S!FtAG-@#SMpa0B1f4}utUHM?&DR%U5|9H3X&mYCA zV^P-@G!~o)&+v>>OoU`s5^E!DE#{n($Rvy@F1i-wY6Y&Z(dg*FKc#*}5?jhB5t?eL zIgJ71SV$`w*aQqEwPLXE+?$$I<$erB3d>Tjmg=QWl3i{JKNQzP8aGy*&U08c*5t*< mrp;63(iYEJ&d98dU|?WkU}j`yU}6R`nT0_F5c2{tI}kI1Id@v0RS{SU-D1^007_VLht|p literal 0 HcmV?d00001 diff --git a/.remake/objects/data3__hash b/.remake/objects/data3__hash new file mode 100644 index 0000000..f304679 --- /dev/null +++ b/.remake/objects/data3__hash @@ -0,0 +1 @@ +506308e82755482b479fa98cf430b156 diff --git a/remake.yml b/remake.yml index f9fbf4a..4f0cb7f 100644 --- a/remake.yml +++ b/remake.yml @@ -5,7 +5,7 @@ targets: all: depends: - - data2 + - data3 data: command: make_data() @@ -13,3 +13,6 @@ targets: data2: command: change_data(data) + + data3: + command: change_the_data(data2) diff --git a/rscript.R b/rscript.R index 8a83a06..2e839c2 100644 --- a/rscript.R +++ b/rscript.R @@ -1,8 +1,13 @@ ##makes data +library(magrittr) + make_data <- function(){ data.frame(x = 1:7) } change_data <- function(df){ transform(df, x2 = x/10) -} \ No newline at end of file +} + +change_the_data <- . %>% + transform(x3 = x/20) \ No newline at end of file