Update markdown_man_table_helper.R

sportsdataverse · Mar 27, 2023 · ee34f52 · ee34f52
1 parent 5ac1a30
commit ee34f52
Showing 1 changed file with 2 additions and 7 deletions.
diff --git a/data-raw/markdown_man_table_helper.R b/data-raw/markdown_man_table_helper.R
@@ -5,15 +5,15 @@ df %>% dplyr::select(col_name, types) %>% knitr::kable(row.names = FALSE)
 x %>% knitr::kable()
 
 
-## Tests Helper
+## NBA Stats Tests Helper
 purrr::walk(names(x), function(y){
 
   print(glue::glue("\n\n {y} \n\n"))
   cat(colnames(x[[y]]), sep = '",\n"')
 })
 
 cat(names(x), sep = ', ')
-## Roxygen Docs Helper
+## NBA Stats Roxygen Docs Helper
 purrr::walk(names(x), function(y){
 
   print(glue::glue("\n\n **{y}** "))
@@ -22,8 +22,3 @@ purrr::walk(names(x), function(y){
     print()
 })
 
-
-
-cat(colnames(x), sep = '",\n"')
-df <- data.frame(col_name = colnames(x), types = sapply(x, class))
-df %>% dplyr::select(col_name, types) %>% knitr::kable(row.names = FALSE)