blks <- c(
a = blockr.core::new_dataset_block(),
b = blockr.core::new_head_block()
)
ext <- new_edit_board_extension()
as_dock_panel_id(blks)
as_dock_panel_id(ext)
identical(names(blks), as_obj_id(as_block_panel_id(blks)))
as_dock_handle_id(blks)
as_dock_handle_id(ext)
identical(names(blks), as_obj_id(as_block_handle_id(blks)))
Run the code above in your browser using DataLab