# NOT RUN {
mc_connect()
h <- getHeight(0,0)
b_type <- getBlock(0,h,0)
b_type
find_item(id = b_type[1])
find_item(id = b_type[1], style = b_type[2])
getBlock(0,h,0, include_style = FALSE)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab