cran fix release

Flavjack · Apr 24, 2021 · d39825a · d39825a
1 parent c13a9f9
commit d39825a
Show file tree

Hide file tree

Showing 30 changed files with 8 additions and 815 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -23,11 +23,11 @@ Imports:
     lme4,
     agricolae,
     FactoMineR,
+    emmeans,
     purrr,
     stringr,
-    DT,
-    emmeans,
-    stringi
+    stringi,
+    DT
 Suggests:
     agridat,
     gsheet,

diff --git a/R/fieldbook_design.R b/R/fieldbook_design.R
@@ -31,26 +31,6 @@
 #' 
 #' @export
 #'
-#' @examples
-#'
-#' library(inti)
-#' library(googlesheets4)
-#' library(dplyr)
-#' 
-#' if (gs4_has_token()) {
-#'
-#' url <- paste0("https://docs.google.com/spreadsheets/d/"
-#' , "1ilw0NHT7mihaM-3U48KzkuMt927xe8ukX6rNuIw2fT0/edit#gid=0")
-#' # browseURL(url)
-#' gs <- as_sheets_id(url)
-#'
-#' (data <- gs %>%
-#'     range_read("tarpuyr"))
-#'
-#' data %>% inti::fieldbook_design(n_factors = 2)
-#' 
-#' }
-#' 
 
 fieldbook_design <- function(data,
                              n_factors = 1,

diff --git a/R/fieldbook_mvr.R b/R/fieldbook_mvr.R
@@ -19,42 +19,6 @@
 #' @importFrom tibble column_to_rownames
 #'
 #' @export
-#'
-#' @examples
-#'
-#' library(inti)
-#' library(googlesheets4)
-#' library(FactoMineR)
-#'
-#' if (gs4_has_token()) {
-#'
-#' url <- paste0("https://docs.google.com/spreadsheets/d/"
-#'               , "15r7ZwcZZHbEgltlF6gSFvCTFA-CFzVBWwg3mFlRyKPs")
-#' # browseURL(url)
-#' gs <- as_sheets_id(url)
-#'
-#' (data <- gs %>%
-#'     range_read("fb"))
-#'
-#' (fb_smr <- gs %>%
-#'   range_read("fbsm"))
-#'
-#'
-#' mvr <- fieldbook_mvr(data, fb_smr
-#' , summary_by = c("genotype", "treat"), groups = "treat")
-#'
-#' FactoMineR::plot.PCA(mvr$pca
-#'                      , choix = "ind"
-#'                      , habillage = mvr$param$groups_n
-#'                      , invisible = "quali"
-#'                      )
-#' 
-#' FactoMineR::plot.HCPC(mvr$hcpc
-#'                       , choice = "map"
-#'                       , draw.tree = F
-#'                       )
-#'
-#' }
 #' 
 
 fieldbook_mvr <- function(data

diff --git a/R/fieldbook_report.R b/R/fieldbook_report.R
@@ -21,34 +21,7 @@
 #' 
 #' @export
 #'
-#' @examples
-#'
-#' library(inti)
-#' library(googlesheets4)
-#' 
-#' if (gs4_has_token()) {
-#'
-#' url <- paste0("https://docs.google.com/spreadsheets/d/"
-#'               , "15r7ZwcZZHbEgltlF6gSFvCTFA-CFzVBWwg3mFlRyKPs/edit#gid=172957346")
-#' # browseURL(url)
-#' gs <- as_sheets_id(url)
-#'
-#' (data <- gs %>%
-#'     range_read("fb"))
-#'
-#' (fb_smr <- gs %>%
-#'   range_read("fbsm"))
-#'
-#' report <- fieldbook_report(data
-#'                           , fb_smr = fb_smr
-#'                           , variable = "LA"
-#'                           , dotplot_groups = "genotype"
-#'                           , model_diag = TRUE
-#'                           )
-#' report
-#'
-#' }
-#' 
+
 
 fieldbook_report <- function(data
                             , fb_smr

diff --git a/R/fieldbook_reshape.R b/R/fieldbook_reshape.R
@@ -24,34 +24,6 @@
 #' @importFrom tidyr pivot_wider pivot_longer
 #'
 #' @export
-#'
-#' @examples
-#'
-#'
-#' library(inti)
-#' library(googlesheets4)
-#' 
-#' if (gs4_has_token()) {
-#'
-#' url <- paste0("https://docs.google.com/spreadsheets/d/"
-#'               , "1lslvNuebfI0YQw3KMz7clN8nIs3x8G9Da63E1em7J5o/")
-#' # browseURL(url)
-#' gs <- as_sheets_id(url)
-#'
-#' (data <- gs %>%
-#'     range_read("fb"))
-#'
-#' fbrs <- fieldbook_reshape(data = data
-#'                           , last_factor = "imbt"
-#'                           , sep = "_"
-#'                           , new_colname = "rep"
-#'                           , from_var = "sch_0_1"
-#'                           , to_var = "swc_0_1"
-#'                           , exc_factors = "bar_code"
-#'                           )
-#' fbrs
-#'
-#' }
 #' 
 
 fieldbook_reshape <- function(data

diff --git a/R/fieldbook_summary.R b/R/fieldbook_summary.R
@@ -22,33 +22,6 @@
 #'
 #' @export
 #'
-#' @examples
-#'
-#'
-#' library(inti)
-#' library(googlesheets4)
-#' 
-#' if (gs4_has_token()) {
-#'
-#' url <- paste0("https://docs.google.com/spreadsheets/d/"
-#'               , "15uwCgQRtR01B3FJaZBE8t_0bOC_8Bbey9ccwVlZH0jg")
-#' # browseURL(url)
-#' gs <- as_sheets_id(url)
-#'
-#' (data <- gs %>%
-#'     range_read("fb"))
-#'
-#' fbsm <- fieldbook_summary(data
-#'                  , last_factor = "dosis"
-#'                  , model_facts = "bloque + cultivar*fuenteN*dosis"
-#'                  , comp_facts = "cultivar:fuenteN:dosis"
-#'                  )
-#' fbsm
-#'
-#' # fbsm %>% write_sheet(ss = gs, sheet = "fbsm")
-#'
-#' }
-#' 
 
 fieldbook_summary <- function(data
                              , last_factor

diff --git a/R/fieldbook_varlist.R b/R/fieldbook_varlist.R
@@ -19,32 +19,6 @@
 #' 
 #' @export
 #'
-#' @examples
-#'
-#' library(inti)
-#' library(googlesheets4)
-#' 
-#' if (gs4_has_token()) {
-#'
-#' url <- paste0("https://docs.google.com/spreadsheets/d/"
-#' , "1a82XIbTeWPC4pwvu9Zjl4qrGitGQ_B-mf3-w67VS4-Q/edit#gid=0")
-#' # browseURL(url)
-#' gs <- as_sheets_id(url)
-#'
-#' (design <- gs %>%
-#'     range_read("design"))
-#'
-#' (varlist <- gs %>%
-#'     range_read("varlist"))
-#'
-#' fieldbook <- design %>%
-#'   inti::fieldbook_design() %>%
-#'   inti::fieldbook_varlist(varlist)
-#'
-#' fieldbook
-#'
-#' }
-#'
 
 fieldbook_varlist <- function(fieldbook
                               , varlist = NULL

diff --git a/R/jc_tombola.R b/R/jc_tombola.R
@@ -22,40 +22,6 @@
 #' 
 #' @export
 #'
-#' @examples
-#'
-#' \dontshow{
-#'
-#' library(inti)
-#' library(googlesheets4)
-#' 
-#' if (gs4_has_token()) {
-#'
-#' url <- paste0("https://docs.google.com/spreadsheets/d/"
-#' , "15TaF0lCCByg0dgOLqfoTlLbAWnau8IiLOklpS4cvm4M")
-#' 
-#' gs <- as_sheets_id(url)
-#' # browseURL(url)
-#'
-#' jc <-  gs %>% range_read("members")
-#'
-#' jc %>% jc_tombola(data = .
-#'                   , members = "Member"
-#'                   , group = "Language"
-#'                   , gr_lvl = c("english", "spanish")
-#'                   , status = "Status"
-#'                   , st_lvl = "activo"
-#'                   , frq = 7
-#'                   , date = "2020-06-17"
-#'                   , seed = 2013
-#'                   ) %>%
-#'                   web_table(rnames = TRUE
-#'                   , caption = "JC")
-#'
-#' }
-#' 
-#' }
-#'
 
 jc_tombola <- function(data
                        , members

diff --git a/R/metamorfosis.R b/R/metamorfosis.R
@@ -30,38 +30,6 @@
 #' @importFrom stats qqline qqnorm resid sd vcov
 #' 
 #' @export
-#' 
-#' @examples
-#'
-#' library(googlesheets4)
-#' library(dplyr)
-#' 
-#' if (gs4_has_token()) {
-#'
-#' url <- paste0("https://docs.google.com/spreadsheets/d/"
-#' , "1lslvNuebfI0YQw3KMz7clN8nIs3x8G9Da63E1em7J5o")
-#' gs <- as_sheets_id(url)
-#' # browseURL(url)
-#'
-#' fb_old <- gs %>%
-#'   range_read("fb_old") %>%
-#'   select(ID:SNum) %>%
-#'   filter(SS == "S1")
-#'
-#' dic <- gs %>% range_read("var_old") %>%
-#'   slice(1:20)
-#'
-#' mtm <- metamorphosis(fieldbook = fb_old
-#'                         , dictionary = dic
-#'                         , from = "old_name"
-#'                         , to = "Abbreviation"
-#'                         , index = "Type"
-#'                         , colnames = c("colname")
-#'                      )
-#'
-#' fb_new <- mtm$fieldbook
-#'
-#' }
 #'
 
 metamorphosis <- function(fieldbook

diff --git a/R/plot_design.R b/R/plot_design.R
@@ -25,39 +25,6 @@
 #' 
 #' @export
 #'
-#' @examples
-#'
-#' library(inti)
-#' library(googlesheets4)
-#' library(purrr)
-#' 
-#' if (gs4_has_token()) {
-#'
-#' url <- paste0("https://docs.google.com/spreadsheets/d/"
-#' , "1ilw0NHT7mihaM-3U48KzkuMt927xe8ukX6rNuIw2fT0/edit#gid=0")
-#' # browseURL(url)
-#' gs <- as_sheets_id(url)
-#'
-#' (fb <- gs %>%
-#'     range_read("tarpuy"))
-#'
-#' data <- fb %>% inti::fieldbook_design(n_factors = 2
-#'                                       , type = "rcbd"
-#'                                       , rep = 3) %>% pluck("design")
-#'
-#' plot_design(data
-#'             , factor = "temp"
-#'             , dim = "block"
-#'             )
-#'
-#' plot_design(data
-#'             , factor = "temp"
-#'             , dim = "9x5"
-#'             )
-#'
-#' }
-#'
-#' @export
 
 plot_design <- function(data
                         , factor

diff --git a/docs/pkgdown.yml b/docs/pkgdown.yml
@@ -6,7 +6,7 @@ articles:
   heritability: heritability.html
   policy: policy.html
   yupana: yupana.html
-last_built: 2021-04-24T14:40Z
+last_built: 2021-04-24T16:58Z
 urls:
   reference: https://inkaverse.com//reference
   article: https://inkaverse.com//articles

diff --git a/docs/reference/fieldbook_design.html b/docs/reference/fieldbook_design.html