> skip_if_local_src()
> suppressMessages(dm_copy <- copy_dm_to(my_test_src(), dm_for_filter()))
> dm_truncate_local <- dm(tf_2 = tibble(c = c("worm"), d = 10L, ), tf_5 = tibble(
+   k = 3L, m = "tree", ), )
> dm_truncate_copy <- suppressMessages(copy_dm_to(my_test_src(),
+ dm_truncate_local))
> dm_copy %>% pull_tbl(tf_2) %>% arrange_all()
  c            d e    
  <chr>    <int> <chr>
1 cat          7 F    
2 dog          6 E    
3 elephant     2 D    
4 lion         3 E    
5 seal         4 F    
6 worm         5 G    

> dm_copy %>% dm_rows_truncate(dm_truncate_copy) %>% pull_tbl(tf_2) %>%
+   arrange_all()
Message: Not persisting, use `in_place = FALSE` to turn off this message.

# ... with 3 variables: c <chr>, d <int>, e <chr>

> dm_copy %>% pull_tbl(tf_2) %>% arrange_all()
  c            d e    
  <chr>    <int> <chr>
1 cat          7 F    
2 dog          6 E    
3 elephant     2 D    
4 lion         3 E    
5 seal         4 F    
6 worm         5 G    

> dm_copy %>% dm_rows_truncate(dm_truncate_copy, in_place = FALSE) %>% pull_tbl(
+   tf_2) %>% arrange_all()
# ... with 3 variables: c <chr>, d <int>, e <chr>

> dm_copy %>% dm_get_tables() %>% map(arrange_all)
$tf_1
       a b    
   <int> <chr>
 1     1 A    
 2     2 B    
 3     3 C    
 4     4 D    
 5     5 E    
 6     6 F    
 7     7 G    
 8     8 H    
 9     9 I    
10    10 J    

$tf_2
  c            d e    
  <chr>    <int> <chr>
1 cat          7 F    
2 dog          6 E    
3 elephant     2 D    
4 lion         3 E    
5 seal         4 F    
6 worm         5 G    

$tf_3
   f     g    
   <chr> <chr>
 1 B     one  
 2 C     two  
 3 D     three
 4 E     four 
 5 F     five 
 6 G     six  
 7 H     seven
 8 I     eight
 9 J     nine 
10 K     ten  

$tf_4
  h     i     j    
  <chr> <chr> <chr>
1 a     three C    
2 b     four  D    
3 c     five  E    
4 d     six   F    
5 e     seven F    

$tf_5
      k l     m         
  <int> <chr> <chr>     
1     1 b     house     
2     2 c     tree      
3     3 d     streetlamp
4     4 e     streetlamp

$tf_6
  n          o    
  <chr>      <chr>
1 garden     i    
2 hill       g    
3 house      e    
4 streetlamp h    
5 tree       f    


> dm_copy %>% dm_rows_truncate(dm_truncate_copy, in_place = TRUE)
> dm_copy %>% dm_get_tables() %>% map(arrange_all)
$tf_1
       a b    
   <int> <chr>
 1     1 A    
 2     2 B    
 3     3 C    
 4     4 D    
 5     5 E    
 6     6 F    
 7     7 G    
 8     8 H    
 9     9 I    
10    10 J    

$tf_2
# ... with 3 variables: c <chr>, d <int>, e <chr>

$tf_3
   f     g    
   <chr> <chr>
 1 B     one  
 2 C     two  
 3 D     three
 4 E     four 
 5 F     five 
 6 G     six  
 7 H     seven
 8 I     eight
 9 J     nine 
10 K     ten  

$tf_4
  h     i     j    
  <chr> <chr> <chr>
1 a     three C    
2 b     four  D    
3 c     five  E    
4 d     six   F    
5 e     seven F    

$tf_5
# ... with 3 variables: k <int>, l <chr>, m <chr>

$tf_6
  n          o    
  <chr>      <chr>
1 garden     i    
2 hill       g    
3 house      e    
4 streetlamp h    
5 tree       f    


