@u_ribo TOKYO.R #95 Shinya Uryu

γʔγϡϙεͷؠ ࡞ۀͷ΍Γ௚͠ʹۤ͠Ήσʔλ෼ੳऀͨͪ

ϫʔΫϑϩʔͷґଘؔ܎ (BSSFUUBOE)BEMFZ ΑΓ࡞੒

ϫʔΫϑϩʔͷґଘؔ܎ ্ྲྀͰߦͬͨมߋ͕ԼྲྀʹӨڹ 🔥 🔥 🔥 🔥 🔥

࠶ݱੑͱ࣮ߦ࣌ؒͷδϨϯϚ 🔥 ϫʔΫϑϩʔʹมߋ͕ՃΘͬͨ࣌ Ͳ͏͢Δʁ ࠶ݱੑ ࣮ߦ࣌ؒ ϑΥϧμ؅ཧ ίʔυΛ࢒͢ ˓ º ख͕͔͔ؒΔ ݁ՌʢσʔλʣΛ ࢒͢ º ˓ ख͕͔͔ؒΔ

{targets} Dynamic Function-Oriented 'Make'-Like Declarative Workflows ؔ਺ࢦ޲ϓϩάϥϛϯάͱએݴܕͷϫʔΫϑϩʔ ͕ಛ௃ ౷ܭɾσʔλαΠΤϯεͷͨΊͷύΠϓϥΠϯπʔϧ ίʔυͱσʔλͷ؅ཧ͕༰қ \ESBLF^ύοέʔδͷޙܧ

{targets}ΛקΊΔཧ༝ ࡞ۀͷྲྀΕͷࢹ֮Խ σʔλɾίʔυͷϒϥοΫϘοΫεԽΛ๷͙ શମͷॲཧΛ؆ܿʹ ॲཧΛؔ਺Խ͢Δ͜ͱͰอकੑ΋޲্ ίʔυɺσʔλ؅ཧͷ൥Θ͔͠͞Βͷ୤٫ मਖ਼ɾ௥Ճ࡞ۀͷࡍͷෛ୲͕ݮগ ϫʔΫϑϩʔʹΑΔґଘؔ܎ͷ೺Ѳ

ࠓ೔࿩ʢͤc͞ʣͳ͍͜ͱ 5BSHFU.BSLEPXO σόοάͷํ๏ ͜ΕΒͷ಺༰͸ϚχϡΞϧΛࢀߟ @UBSHFUTΦϒδΣΫτͷ؅ཧ https://books.ropensci.org/targets/ 3.BSLEPXOจॻ಺෦ͰύΠϓϥΠϯΛఆٛ 5BSHFU.BSLEPXOݕূϝϞUFSBTIJNDPN https://terashim.com/posts/target-markdown/ ͳͲ

{targets}ͷύΠϓϥΠϯ ࣮ߦ݁ՌΛ಺෦ʹอଘɻ࠶࣮ߦ࣌ɺલճͷ࣮ߦ͔࣌Βɹ มߋͷͳ͍ॲཧʢλʔήοτʣΛεΩοϓ ࣮ߦ࣌ؒͷ୹ॖɺ ... ϫʔΫϑϩʔશମͷґଘؔ܎ ʢίʔυɺσʔλɺ্ྲྀͰͷॲཧ಺༰ʣΛ؂ࢹ ࠶ݱੑ͕อূ͞ΕΔɻ ϑΥϧμ؅ཧͷ൥Θ͔͠͞Βղ์͞ΕΔɻ 4UBOͳͲͷ࣮ߦʹ࣌ؒΛཁ͢Δॲཧ΍ػցֶशͷ࣮ݧʹద͢Δɻ

{targets}ͷجૅ αϯϓϧϦϙδτϦ IUUQTHJUIVCDPNVSJCPUBML@@UPLZPS

\UBSHFUT^Λ࢖ͬͨϓϩδΣΫτͷجຊ ├─_targets.R ├─ R/ ├── function.R ├─ data/ ├── raw_data.csv └─ hoge.Rproj \UBSHFUT^ʹΑΔύΠϓϥΠϯͷ ࣮ߦखॱΛهࡌɺ ࣮ߦʹඞཁͳύοέʔδɾؔ਺ಡΈࠐ Έ΍ͦͷଞͷΦϓγϣϯΛؚΊΔɻ 5BSHFUεΫϦϓτϑΝΠϧ @UBSHFUT3

ͭͷॲཧ ͔ΒͳΔϫʔΫϑϩʔ @UBSHFUT3ʹλʔήοτͱͳΔॲཧΛهड़ library(targets) list( tar_target( my_mtcars, subset(mtcars, cyl == 6)), tar_target( dist_histogram, hist(my_mtcars$disp)), tar_target( lm_res, lm(mpg ~ wt, mtcars)) ) MJTU Λ࢖ͬͯύΠϓϥΠϯΛఆٛ ⁞   ⁠ ݸผͷॲཧ͸UBS@UBSHFU Ͱࢦఆ UBS@UBSHFU ໊લ ॲཧ಺༰ my_mtcars <- subset(mtcars, cyl == 6) UBS@NBLF ͰύΠϓϥΠϯͷ࣮ߦ ࣮ߦ؀ڥͱ͸ҟͳΔ3ηογϣϯͰ ͕ߦΘΕΔΠϝʔδ ⁞   ⁠ _targets.R

tar_make()ύΠϓϥΠϯͷ࣮ߦ TUBSU CVJME 5BSHFUʹมߋ͕͋Ε͹ ʢΩϟογϡ͕ར༻͞ΕΔʣ 5BSHFUͷॲཧ͕࣮ߦ σʔλετϨʔδʢޙड़ʣʹ ͳ͚Ε͹TLJQ ࠷ॳͷUBS@NBLF ೋ౓໨ͷUBS@NBLF

tar_visnetwork()ϫʔΫϑϩʔͷՄࢹԽ library(targets) list( tar_target( my_mtcars, subset(mtcars, cyl == 6)), tar_target( dist_histogram, hist(my_mtcars$disp)), tar_target( lm_res, lm(mpg ~ wt, mtcars)) ) ॲཧ಺༰ͷґଘؔ܎͕໌֬ʹ ⁞   ⁠ Ͳͷॲཧ͕มߋ͞Εͨʁ ΤϥʔՕॴͷಛఆ͕༰қʹ _targets.R

tar_read()tar_load()݁Ռͷ෮ݩ ॲཧ݁Ռ͸@UBSHFUTʹ஝ੵ͞Ε͍ͯΔ tar_read(lm_res) #> Call: #> lm(formula = mpg ~ wt, data = mtcars) #> #> Coefficients: #> (Intercept) wt #> 37.285 -5.344 UBS@MPBE Ͱ࡞ۀۭؒʹ ΦϒδΣΫτͱͯ͠อଘ UBS@SFBE ͰಡΈࠐΈ ʢग़ྗʣ ࠶ݱੑͷ޲্ɾ࣌ؒͷ୹ॖ

ଟ༷ͳσʔλετϨʔδ ├─ _targets/ ├── meta/meta ├── objects/ ├──── my_mtcars ├──── dist_histogram ├──── lm_res ͲͷΑ͏ͳσʔλ͕͋Δ͔ʜ UBS@NFUB ύΠϓϥΠϯͰੜ੒͞Εͨ݁ՌΛ@UBSHFUT಺Ͱ؅ཧ σϑΥϧτͰ͸SET UBS@UBSHFU ʜ GPSNBU ͰࢦఆՄೳ GTU GFBUIFS QBSRVFU BXT

{targets}ͷਪ͠ػೳ

ਪ͠ϒϥϯν ϞσϧͷύϥϝʔλΛมߋͯ݁͠ՌΛൺֱ͍ͨ͠ ࣮ݧͱͯ͠ద౰ͳ஋ΛೖΕͯࢼ͍ͨ͠ ࡞ਤͷݟͨ໨Λม͑ΔͷʹҰ෦ͷ৭͚ͩมߋͯ͠Έ͍ͨ ίʔυʹ࢒͢ʁ ݁ՌΛ؅ཧ͢Δͷ͸໘౗ʜ UBS@SFBE ʜ CSBODIFT list(… tar_target(activations, c("relu", "sigmoid")), tar_target( run, test_model(act1 = activations, churn_data, churn_recipe), pattern = map(activations) ),…) 5BSHFUT͕Α͠ͳʹ؅ཧʂ QBUUFSOҾ਺ JUFSBUJPOҾ਺ ׆ੑԽؔ਺ͷࢦఆΛύλʔϯ༻ҙ _targets.R

ਪ͠ߴੑೳܭࢉ UBS@UBSHFU ಺Ͱͷ੾Γସ͑͸EFQMPZNFOUҾ਺ͰࢦఆɻlNBJOz·ͨ͸lXPSLFSz UBS@NBLF@DMVTUFSNR ෛ୲ͷେ͖ͳॲཧ΋ߴ଎ʹ {clustermq} {future} UBS@NBLF@GVUVSF options( clustermq.scheduler = "multiprocess") library(future) library(future.callr) plan(callr) list( tar_target(data, get_data()), tar_target(fast_fit, fit_small_model(data)), tar_target(plot_1, make_plot(fast_fit))) _targets.R

R targetopia tarchetypes::tar_render() 3NEϑΝΠϧͷग़ྗΛ࣮ߦ stantargets::tar_stan_compile() TUBOϑΝΠϧͷίϯύΠϧ ॲཧ಺༰ΛύοέʔδԽ ൚༻తͳ ༻్ʹಛԽͨؔ͠਺Λఏڙ