# NOT RUN {
ht <- huxtable(a = 1:3, b = 1:3)
na_string(ht) <- '--'
na_string(ht)
ht[2,2] <- NA
print_screen(ht)
ht <- huxtable(a = 1:3, b = 3:1)
ht2 <- set_na_string(ht, '--')
na_string(ht2)
ht3 <- set_na_string(ht, 1:2, 1, '--')
na_string(ht3)
ht4 <- set_na_string(ht, 1:2, 1:2, c('--', ''), byrow = TRUE)
na_string(ht4)
ht5 <- set_na_string(ht, where(ht == 1), '--')
na_string(ht5)
# }
Run the code above in your browser using DataLab