d=c("H","T")
set.seed(137)
table(sample(d,10000,replace = TRUE))
#>
#> H T
#> 5025 4975
set.seed(137)
table(replicate(10000,sample(d,1, replace = FALSE)))
#>
#> H T
#> 5025 4975
# use replacement
set.seed(137)
table(replicate(10000,sample(d,1,replace = TRUE)))
#>
#> H T
#> 5025 4975
Created on 2020-09-27 by the reprex package (v0.3.0.9001)
As a general rule, prefer the method employing the fewest functions.