Nothing
dm_flatten_to_tbl()
does the right things for 'left_join()'Code
prepare_dm_for_flatten(dm_for_flatten(), tables = c("fact", "dim_1", "dim_2",
"dim_3", "dim_4"), gotta_rename = TRUE) %>% dm_get_tables()
Message
Renaming ambiguous columns: %>%
dm_rename(fact, something.fact = something) %>%
dm_rename(dim_1, something.dim_1 = something) %>%
dm_rename(dim_2, something.dim_2 = something) %>%
dm_rename(dim_3, something.dim_3 = something) %>%
dm_rename(dim_4, something.dim_4 = something)
Output
$fact
# A tibble: 10 x 7
fact dim_1_key_1 dim_1_key_2 dim_2_key dim_3_key dim_4_key something.fact
<chr> <int> <chr> <chr> <chr> <int> <int>
1 acorn 14 N c X 7 1
2 blubber 13 M d W 8 2
3 cindere~ 12 L e V 9 3
4 depth 11 K f U 10 4
5 elysium 10 J g T 11 5
6 fantasy 9 I h S 12 6
7 gorgeous 8 H i R 13 7
8 halo 7 G j Q 14 8
9 ill-adv~ 6 F k P 15 9
10 jitter 5 E l O 16 10
$dim_1
# A tibble: 20 x 3
dim_1_pk_1 dim_1_pk_2 something.dim_1
<int> <chr> <chr>
1 1 A c
2 2 B d
3 3 C e
4 4 D f
5 5 E g
6 6 F h
7 7 G i
8 8 H j
9 9 I k
10 10 J l
11 11 K m
12 12 L n
13 13 M o
14 14 N p
15 15 O q
16 16 P r
17 17 Q s
18 18 R t
19 19 S u
20 20 T v
$dim_2
# A tibble: 20 x 2
dim_2_pk something.dim_2
<chr> <chr>
1 a E
2 b F
3 c G
4 d H
5 e I
6 f J
7 g K
8 h L
9 i M
10 j N
11 k O
12 l P
13 m Q
14 n R
15 o S
16 p T
17 q U
18 r V
19 s W
20 t X
$dim_3
# A tibble: 20 x 2
dim_3_pk something.dim_3
<chr> <int>
1 E 3
2 F 4
3 G 5
4 H 6
5 I 7
6 J 8
7 K 9
8 L 10
9 M 11
10 N 12
11 O 13
12 P 14
13 Q 15
14 R 16
15 S 17
16 T 18
17 U 19
18 V 20
19 W 21
20 X 22
$dim_4
# A tibble: 13 x 2
dim_4_pk something.dim_4
<int> <int>
1 19 19
2 18 20
3 17 21
4 16 22
5 15 23
6 14 24
7 13 25
8 12 26
9 11 27
10 10 28
11 9 29
12 8 30
13 7 31
Code
dm_flatten_to_tbl(dm_for_flatten(), fact)
Message
Renaming ambiguous columns: %>%
dm_rename(fact, something.fact = something) %>%
dm_rename(dim_1, something.dim_1 = something) %>%
dm_rename(dim_2, something.dim_2 = something) %>%
dm_rename(dim_3, something.dim_3 = something) %>%
dm_rename(dim_4, something.dim_4 = something)
Output
# A tibble: 10 x 11
fact dim_1_key_1 dim_1_key_2 dim_2_key dim_3_key dim_4_key something.fact
<chr> <int> <chr> <chr> <chr> <int> <int>
1 acorn 14 N c X 7 1
2 blubber 13 M d W 8 2
3 cindere~ 12 L e V 9 3
4 depth 11 K f U 10 4
5 elysium 10 J g T 11 5
6 fantasy 9 I h S 12 6
7 gorgeous 8 H i R 13 7
8 halo 7 G j Q 14 8
9 ill-adv~ 6 F k P 15 9
10 jitter 5 E l O 16 10
# i 4 more variables: something.dim_1 <chr>, something.dim_2 <chr>,
# something.dim_3 <int>, something.dim_4 <int>
Code
result_from_flatten_new()
Output
# A tibble: 10 x 11
fact dim_1_key_1 dim_1_key_2 dim_2_key dim_3_key dim_4_key something.fact
<chr> <int> <chr> <chr> <chr> <int> <int>
1 acorn 14 N c X 7 1
2 blubber 13 M d W 8 2
3 cindere~ 12 L e V 9 3
4 depth 11 K f U 10 4
5 elysium 10 J g T 11 5
6 fantasy 9 I h S 12 6
7 gorgeous 8 H i R 13 7
8 halo 7 G j Q 14 8
9 ill-adv~ 6 F k P 15 9
10 jitter 5 E l O 16 10
# i 4 more variables: something.dim_1 <chr>, something.dim_2 <chr>,
# something.dim_3 <int>, something.dim_4 <int>
dm_flatten_to_tbl()
does the right things for 'inner_join()'Code
out
Output
# A tibble: 10 x 11
fact dim_1_key_1 dim_1_key_2 dim_2_key dim_3_key dim_4_key something.fact
<chr> <int> <chr> <chr> <chr> <int> <int>
1 acorn 14 N c X 7 1
2 blubber 13 M d W 8 2
3 cindere~ 12 L e V 9 3
4 depth 11 K f U 10 4
5 elysium 10 J g T 11 5
6 fantasy 9 I h S 12 6
7 gorgeous 8 H i R 13 7
8 halo 7 G j Q 14 8
9 ill-adv~ 6 F k P 15 9
10 jitter 5 E l O 16 10
# i 4 more variables: something.dim_1 <chr>, something.dim_2 <chr>,
# something.dim_3 <int>, something.dim_4 <int>
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.