cran prep

DESCRIPTION

@@ -1,14 +1,14 @@
 Package: inti
 Type: Package
-Version: 0.6.3
+Version: 0.6.4
 Title: Tools and Statistical Procedures in Plant Science
 Description: The 'inti' package is part of the 'inkaverse' project for developing 
     different procedures and tools used in plant science and experimental designs. 
     The mean aim of the package is to support researchers during the planning of
     experiments and data collection (tarpuy()), data analysis and graphics (yupana())
     , and technical writing. 
     Learn more about the 'inkaverse' project at <https://inkaverse.com/>.
-Date: 2023-10-26
+Date: 2024-02-05
 Authors@R: c(
     person("Flavio", "Lozano-Isla", email = "[email protected]", role = c("aut", "cre")
           , comment = c(ORCID = "0000-0002-0714-669X")),

NEWS.md

@@ -8,13 +8,13 @@
 
 # inti 0.6.4
 
+- Update bootstrap in apps
 - Tarpuy:
   - Alows to exclude or delete `{when}` or `{sample}` colums
-  - Allow `defaultValue` for numeric traits
+  - Allow `defaultValue` for traits
 - Rticles
   - Include images using markdown syntax `![]()`
 
-
 => Fix if "defaultvalue" is in the trait table
 
 # inti 0.6.3

R/tarpuy_traits.R

@@ -76,7 +76,7 @@
 #' fb <- ds %>% tarpuy_design()
 #' 
 #' url_trt <- paste0("https://docs.google.com/spreadsheets/d/"
-#'        , "1kIoI__uHQpZ8qXMPFoZpimBhywU8J0Rw49KgjJcovMY/edit#gid=1056776892")
+#'        , "1fBSnEq6CmYKK9Pdxlz0egEEflezJRnlAOylQwbythBE/edit#gid=179601173")
 #'        
 #' traits <- gsheet2tbl(url_trt) 
 #' 
@@ -111,8 +111,8 @@ tarpuy_traits <- function(fieldbook = NULL
 
 # -------------------------------------------------------------------------
 
-  cols <- c("trait" = NA_real_,	"format" = NA_real_,	"default" = NA_real_
-            ,	"minimum" = NA_real_,	"maximum" = NA_real_,	"details" = NA_real_
+  cols <- c("trait" = NA_real_, "format" = NA_real_, "default" = NA_real_
+            , "minimum" = NA_real_,	"maximum" = NA_real_, "details" = NA_real_
             , "categories" = NA_real_)
 
 # -------------------------------------------------------------------------
@@ -131,6 +131,7 @@ tarpuy_traits <- function(fieldbook = NULL
     } %>% 
     dplyr::bind_rows() %>% 
     tibble::add_column(!!!cols[!names(cols) %in% names(.)]) %>% 
+    dplyr::rename("defaultValue" = "default") %>% 
     dplyr::filter(!grepl("X", .data$abbreviation))
 
   traitsnames <- traitstb %>% 
@@ -163,7 +164,7 @@ tarpuy_traits <- function(fieldbook = NULL
     dplyr::mutate(isVisible = "true") %>% 
     dplyr::mutate(defaultValue = dplyr::case_when(
       .data$format %in% "boolean" ~ "false"
-      , TRUE ~ .data$defaultValue
+      , TRUE ~ as.character(.data$defaultValue)
     )) %>% 
     dplyr::rowwise() %>% 
     dplyr::mutate(categories = case_when(