Only export some functions

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: keedwell
 Title: Latin Squares in R
-Version: 0.1.1.9000
+Version: 0.1.1.9001
 Authors@R: 
     person("Matthew", "Henderson", , "[email protected]", role = c("aut", "cre"),
            comment = c(ORCID = "0000-0001-7949-8208"))

NAMESPACE

@@ -2,12 +2,3 @@
 
 export(add_cols)
 export(add_rows)
-export(create_latin_square)
-export(edge_tbl)
-export(next_col_matching)
-export(next_col_random)
-export(next_row)
-export(next_row_matching)
-export(next_row_random)
-export(to_tidygraph)
-export(to_tidygraph_2)

R/edge-tbl.R

@@ -12,7 +12,6 @@
 #' @param l_order size of latin square R is going to be embedded into
 #'
 #' @return The edge data frame.
-#' @export
 edge_tbl <- function(R, i, l_order = 3) {
 
   all_symbols <- 1:l_order

R/next-col.R

@@ -5,7 +5,6 @@
 #' @param l_order dimension
 #'
 #' @return a latin rectangle with more columns
-#' @export
 next_col_matching <- function(R, i, l_order) {
 
   n_rows <- max(R$row)
@@ -51,7 +50,6 @@ next_col_matching <- function(R, i, l_order) {
 #' @param l_order dimension
 #'
 #' @return A latin rectangle with more columns
-#' @export
 next_col_random <- function(R, i, l_order) {
 
   n_rows <- max(R$row)

R/next-row.R

@@ -13,7 +13,6 @@
 #' @param l_order The order of the input latin square
 #'
 #' @return A bipartite graph.
-#' @export
 next_row <- function(R, l_order) {
   bg <- to_tidygraph(R, l_order)
 
@@ -45,7 +44,6 @@ next_row <- function(R, l_order) {
 #' @param l_order Order of R
 #'
 #' @return A latin square with more rows.
-#' @export
 next_row_random <- function(R, i, l_order) {
 
   R |>
@@ -75,7 +73,6 @@ next_row_random <- function(R, i, l_order) {
 #' @param l_order Order of R
 #'
 #' @return A latin rectangle with more rows.
-#' @export
 next_row_matching <- function(R, i, l_order) {
   bg <- to_tidygraph(R, l_order)
 

R/to-tidygraph.R

@@ -10,7 +10,6 @@
 #' @param l_order Order of R.
 #'
 #' @return A bipartite graph.
-#' @export
 to_tidygraph <- function(R, l_order = 3) {
 
   ## VERTEX DATA FRAME
@@ -40,7 +39,6 @@ to_tidygraph <- function(R, l_order = 3) {
 #' @param n_cols Number of columns.
 #'
 #' @return A bipartite graph.
-#' @export
 to_tidygraph_2 <- function(R, l_order, n_rows, n_cols) {
 
   ## VERTEX DATA FRAME