diff --git a/NAMESPACE b/NAMESPACE
index 669c56e..3edfd44 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -2,12 +2,16 @@
 
 export(fbapp2hidap)
 export(fbcheck_server)
+export(fbcheck_server_sbase)
 export(fbcheck_ui)
+export(fbcheck_ui_sbase)
 export(form_checker)
 export(form_parameters)
 export(get.fb.param)
 export(get_pvs_param)
+export(hidap2fbApp)
 export(out_form_table)
+export(rhandsontable_update)
 export(scale_trait)
 export(split_tidy_form)
 export(trait_type)
diff --git a/R/fbcheck_server_sbase.R b/R/fbcheck_server_sbase.R
new file mode 100644
index 0000000..b37e820
--- /dev/null
+++ b/R/fbcheck_server_sbase.R
@@ -0,0 +1,252 @@
+#' Server component for traittools and data quality for HIDAP-SweetPotatoBase
+#'
+#' Returns server side components for HIDAP-SweetPotatoBase
+#' @author Omar Benites
+#' @param input shinyserver input
+#' @param output nameo of the output element
+#' @param session shinyserver session
+#' @param values The reactive values
+#' @export
+
+fbcheck_server_sbase <- function(input, output, session, values) {
+  
+  #Catch the file path for reading fieldbook sheets
+  volumes <- shinyFiles::getVolumes()
+  
+  shinyFileChoose(input, 'file_sbase', roots=volumes, session=session,
+                  restrictions=system.file(package='base'),filetypes=c('xlsx'))
+  
+  #Type of format file
+  # hot_formatFile_sbase <- reactive({ 
+  #   
+  #   dsource <- input$fbdesign_dsource_sbase
+  #   if(dsource=="HIDAP") tff <- "HIDAP" 
+  #   if(dsource=="FieldBookApp-SPBase") tff <- "FieldBookApp-SPBase" 
+  #   tff
+  # })
+  
+  #Return the file path (Excel file path)
+  hot_path_sbase <- reactive ({
+    req(input$file_sbase)
+    if(is.null(input$file_sbase)){return(NULL)}
+    
+    validate(
+      need(input$file_sbase != "", label = "Please enter an XLSX file. XLS files are forbidden")
+    )
+    
+    if(length(input$file_sbase)==0){return (NULL)}
+    if(length(input$file_sbase)>0){
+      hot_file <- as.character(parseFilePaths(volumes, input$file_sbase)$datapath)
+    }
+  })
+  
+  #Read the fieldbook data
+  hot_bdata_sbase <- reactive({
+    
+    #file_type <- hot_formatFile_sbase()
+    
+    #1. Fieldbook from fieldbookapp
+    #if(file_type == "FieldBookApp-SPBase"){
+      file_fbapp <- input$file_fbapp_sbase
+      if (is.null(file_fbapp))  return(NULL)
+      dt <- readr::read_csv(file_fbapp$datapath)
+      #dt <- readr::read_csv(file ="D:\\HIDAP_DOCUMENTATION_AND_EXAMPLES\\HIDAP-SweetPotatoBase\\FieldBookApp\\formato para subir a la base de datos\\fbapp_trial1_sbase_bryanEllerbrock.csv")
+      # Data wrangling ----------------------------------------------------------
+      hot_bdata <- fbapp2hidap(dt) 
+    #}
+    
+    hot_bdata
+    
+    
+  })
+  
+  #Return Installation sheet parameters
+  hot_params <- reactive({
+    hot_file <- hot_path()
+    if(length(hot_file)==0){return (NULL)}
+    if(length(hot_file)>0){
+      
+      hot_param <- readxl::read_excel(path=hot_file , sheet = "Installation")
+      #hot_design <- get_fb_param(hot_param,"Experimental design")
+      #hot_design <- get_fb_param(hot_param,"Experimental_design")
+      hot_design <- get_fb_param(hot_param,"Experimental_design_abbreviation")
+      
+      
+      #hot_design <- get_fb_param(hot_param,"Experimental_design") #early version of HiDAP
+      
+      #hot_plot_size <- get_fb_param(hot_param,"Plot size (m2)")
+      hot_plot_size <- get_fb_param(hot_param,"Plot_size_(m2)")
+      
+      #hot_plant_den <- get_fb_param(hot_param,"Planting density (plants/Ha)")
+      hot_plant_den <- get_fb_param(hot_param,"Planting_density_(plants/Ha)")
+      
+      hot_factor_lvl1 <- get_fb_param( hot_param, "Factor_name_1")
+      
+      hot_factor_lvl2 <- get_fb_param( hot_param, "Factor_name_2")
+      
+      
+      hot_psize_mother <- get_pvs_param(pvs_data = hot_param, col_param = "Mother", row_param = "Plot_size_(m2)")
+      hot_psize_baby <- get_pvs_param(pvs_data = hot_param, col_param = "Baby_1", row_param = "Plot_size_(m2)")
+      
+      hot_pden_mother <- get_pvs_param(pvs_data = hot_param, col_param = "Mother", row_param = "Planting_density_(plants/Ha)")
+      hot_pden_baby <- get_pvs_param(pvs_data = hot_param, col_param = "Baby_1", row_param = "Planting_density_(plants/Ha)")
+      
+      
+      
+      hot_params_list <- list(hot_design = hot_design, hot_plot_size = hot_plot_size,
+                              hot_plant_den =  hot_plant_den,  hot_factor_lvl1 = hot_factor_lvl1,
+                              hot_factor_lvl2 =  hot_factor_lvl2, 
+                              hot_psize_mother = hot_psize_mother, hot_pden_mother = hot_pden_mother,
+                              hot_psize_baby   = hot_psize_baby,   hot_pden_baby   = hot_pden_baby
+      )
+    }
+  })
+  
+  #Return the type of crop in Minimal sheet
+  hot_crop_sbase <- reactive({
+    
+    #formatFile <- hot_formatFile_sbase()
+    
+    # if(formatFile =="HIDAP"){
+    #   
+    #   hot_file <- hot_path_sbase()
+    #   if(length(hot_file)==0){return (NULL)}
+    #   if(length(hot_file)>0){
+    #     hot_param <- readxl::read_excel(path=hot_file , sheet = "Minimal")
+    #     hot_crop <- get_fb_param(hot_param,"Crop")
+    #   }
+    # }
+    
+    #if(formatFile =="FieldBookApp-SPBase"){hot_crop <- "sweetpotato"}
+    hot_crop <- "sweetpotato"
+    hot_crop
+    
+  })
+  
+
+  #hot_btable represents fieldbook data
+  output$hot_btable_fbapp_sbase <-  renderRHandsontable({
+    
+    req(input$file_fbapp_sbase)
+    
+    values<-  shiny::reactiveValues(
+      hot_btable_fbapp_sbase = hot_bdata_sbase()
+    )
+    
+    DF <- NULL
+    
+    if (!is.null(input$hot_btable_fbapp_sbase)) {
+      DF = hot_to_r(input$hot_btable_fbapp_sbase)
+      values[["hot_btable_fbapp_sbase"]] = DF
+    } else if (!is.null(values[["hot_btable_fbapp_sbase"]])) {
+      DF = values[["hot_btable_fbapp_sbase"]]
+    }
+    
+    if(input$calculate_sbase>0){
+
+      DF <- values[["hot_btable_fbapp_sbase"]]
+      DF <- rhandsontable_update(DF)
+      #DF <- temp
+    }
+    
+    #print("print DF")
+    #print(DF)
+    
+    if(!is.null(DF)){
+      
+      #dsource <- hot_formatFile_sbase()
+      #if(dsource=="FieldBookApp-SPBase") dsource <- 2
+      dsource <- 2
+      
+      traits <- traittools::get_trait_fb(DF, dsource = dsource)
+      #print(traits)
+      
+      ##begin fbglobal
+      path <- fbglobal::get_base_dir()
+      #print(path)
+      path <- file.path(path,"hot_fieldbook_sbase.rds")
+      #print(path)
+      saveRDS(DF, path)
+      #enf fbglobal
+      
+      #print("checking with crop ontology")
+      crop <- hot_crop_sbase()
+      #trait_dict <- get_crop_ontology(crop = crop,trial = trial)
+      trait_dict <- get_crop_ontology(crop = crop, dsource = dsource)
+      traittools::col_render_trait(fieldbook = DF, trait = traits , trait_dict = trait_dict, dsource = dsource)
+    }
+  })
+  
+  
+  
+  # output$fbcheck_genofilter_sbase <- renderUI({
+  #   #req(input$file)
+  #   ifelse("INSTN" %in% names(hot_bdata_sbase()) , sel <- "INSTN", sel <- 1)
+  #   
+  #   selectInput(inputId = "sel_fbcheck_genofilter_sbase",label = "Select Genotypes",choices = names(hot_bdata_sbase()),multiple = TRUE,selected = sel)
+  #   
+  # })
+  
+  
+  # output$fbcheck_factorfilter_sbase <- renderUI({
+  #   #req(input$file)
+  #   selectInput(inputId = "sel_fbcheck_factorfilter_sbase",label = "Summary by",choices = names(hot_bdata_sbase()),multiple = TRUE,selected = 1)
+  #   
+  # })
+
+  
+  #Download  
+  # output$exportButton_fbapp_sbase <- downloadHandler(
+  #   filename = function() {
+  #     paste('data-', Sys.Date(), '.csv', sep='')
+  #   },
+  #   content = function(con) {
+  #     
+  #     path <- fbglobal::get_base_dir()
+  #     path <- paste(path,"hot_fieldbook_sbase.rds", sep="\\")
+  #     DF <- readRDS(path)
+  #     fb <- hidap2fbApp(fieldbook = DF)
+  #     
+  #     write.csv(x = fb, con)
+  #   }
+  # )
+
+
+  
+
+  #Visualize the list of traits using web tables
+  # output$hot_td_trait = renderRHandsontable({
+  #   td_trait <- orderBy(~ABBR, td_trait)
+  #   rhandsontable(data = td_trait)
+  # })
+  
+  #Export button: This event export and show the excel file which has been checked out.
+  # shiny::observeEvent(input$exportButton,{
+  #   
+  #   #Begin Try
+  #   try({
+  #     
+  #     #For many fieldbooks
+  #     
+  #   })
+  # }) #end try
+  
+  #Export button: This event export and show the excel file for FieldBookApp-SPBase connection
+  
+  output$downloadData <- downloadHandler(
+    filename = function() {
+      paste('data-', Sys.Date(), '.csv', sep='')
+    },
+    content = function(con) {
+      path <- fbglobal::get_base_dir()
+      print(path)
+      path <-  file.path(path,"hot_fieldbook_sbase.rds")
+      print(path)
+      DF <- readRDS(path)
+      fb<- hidap2fbApp(fieldbook = DF)
+      write.csv(fb, con,row.names = FALSE)
+    }
+  )
+  
+  
+}
diff --git a/R/fbcheck_ui_sbase.R b/R/fbcheck_ui_sbase.R
new file mode 100644
index 0000000..5006a5c
--- /dev/null
+++ b/R/fbcheck_ui_sbase.R
@@ -0,0 +1,124 @@
+#' UI for traittools and data quality for HIDAP-SweetPotatoBase
+#' Returns user friendly ui for HIDAP-SweetPotatoBase
+#' @author Omar Benites
+#' @param type type of UI element, deault is a tab in a shinydashboard
+#' @param title display title name
+#' @param name UI TabName
+#' @export
+
+fbcheck_ui_sbase <- function(type="tab", title="Data Quality and Processing", name="data_processing") {       
+  
+  #begin data_processing tabItem
+  shinydashboard::tabItem(tabName = name,
+                          h2(title),   
+                          
+                          # shinyWidgets::awesomeRadio(inputId = "fbdesign_dsource_sbase", 
+                          #                            label = "Select data source", choices = c("HIDAP", 
+                          #                                                                      "FieldBookApp-SPBase"), selected = "FieldBookApp-SPBase", 
+                          #                            inline = TRUE, checkbox = TRUE),
+                          # 
+                          box(
+                            title = " ", status = "primary", solidHeader = TRUE,
+                            collapsible = TRUE, width = NULL,
+                            
+                            # conditionalPanel(
+                            #   condition = "input.fbdesign_dsource_sbase == 'HIDAP'",
+                            #   
+                            #   try(shinyFiles::shinyFilesButton('file_sbase', 'File select', 'Please select a file',FALSE)),
+                               shiny::actionButton("calculate_sbase", "Calculate",icon("play-circle-o")),
+                            #   HTML('<div style="float: right; margin: 0 5px 5px 10px;">'),
+                            #   shiny::actionLink('exportButton_sbase', 'Download data'),
+                            #   HTML('</div>'),
+                            #   br(),
+                            #   br()#,  
+                            # ),
+                            
+                            # conditionalPanel(
+                            #   condition = "input.fbdesign_dsource_sbase == 'HIDAP'",
+                            #   
+                            #   # HTML('<div style="float: right; margin: 0 5px 5px 10px;">'),
+                            #   # #shiny::actionLink('exportButton_fbapp_sbase', 'Download data'),
+                            #   # HTML('</div>')#,
+                            #   
+                            # ),
+                            
+                            #conditionalPanel(
+                            #  condition = "input.fbdesign_dsource_sbase == 'FieldBookApp-SPBase'",
+
+                                shiny::fileInput(inputId = "file_fbapp_sbase", label = "Choose CSV File", multiple = FALSE,
+                                                 accept = c("text/csv","text/comma-separated-values,text/plain", ".csv")),
+                            
+                                shiny::downloadLink('downloadData', 'Download'),
+                                # HTML('<div style="float: right; margin: 0 5px 5px 10px;">'),
+                                # shiny::actionLink('exportButton_fbapp_sbase', 'Download data'),
+                                # HTML('</div>')#,
+                             # )
+                            #),
+                            
+                            
+                            
+                            #tabsetPanel(
+                            tabBox(width = 12,
+                                   tabPanel("Standard Modules", #begin tabset "CHECK"
+                                            
+                                            # conditionalPanel(
+                                            #   condition = "input.fbdesign_dsource_sbase == 'HIDAP'",
+                                            #   
+                                              #uiOutput("fbcheck_genofilter_sbase"),
+                                              #uiOutput("fbcheck_factorfilter_sbase"),
+                                              
+                                            #),
+                                            
+                                            #                                      fluidRow(
+                                            #                                        shinyFiles::shinyFilesButton('file', 'File select', 'Please select a file',FALSE),
+                                            #                                        shiny::actionButton("calculate", "Calculate",icon("play-circle-o")),
+                                            #                                        HTML('<div style="float: right; margin: 0 5px 5px 10px;">'),
+                                            #                                        shiny::actionLink('exportButton', 'Download data'),
+                                            #                                        HTML('</div>'),
+                                            shinysky::shinyalert("alert_fb_warning_sbase", FALSE, auto.close.after = 4),
+                                            
+                                            # conditionalPanel(
+                                            #   condition = "input.fbdesign_dsource_sbase == 'HIDAP'",
+                                            #   
+                                            #   box(rHandsontableOutput("hot_btable_sbase",height = "1400px",width = "1000px"),
+                                            #       height = "3400px",width ="2400px")#,
+                                            # ),
+                                            
+                                            #conditionalPanel(
+                                            #  condition = "input.fbdesign_dsource_sbase == 'FieldBookApp-SPBase'",
+                                              
+                                              box(rHandsontableOutput("hot_btable_fbapp_sbase",height = "1400px",width = "1000px"),
+                                                  height = "3400px",width ="2400px"),
+                                            #),
+                                            
+                                            #                                      ),
+                                            
+                                            tags$style(type='text/css', "#file_sbase { width:150px; margin-top: 25px;}"),
+                                            tags$style(HTML('#file_sbase {background-color:#0099cc; color: #ffffff}')),  
+                                            tags$style(type='text/css', "#calculate_sbase { width:150px; margin-top: 25px;}"),
+                                            tags$style(HTML('#calculate_sbase {background-color:#21b073; color: #ffffff}'))
+                                            
+                                   )
+                                   
+                                   #,#end tab Panel "CHECK"
+                                   
+                                   
+                                   #### Hiden Special Modules during September Preview Release -----------------
+                                   
+                                   
+                                  
+                                   
+                                   #### Hiden Special Modules during September Preview Release -----------------
+                                   
+                                   
+                            )
+                          ),
+                          br(),
+                          br(),
+                          br()
+                          
+                          
+  )#End data_processing tabItem
+  
+}
+
diff --git a/R/utils.R b/R/utils.R
index 9477feb..e962c44 100644
--- a/R/utils.R
+++ b/R/utils.R
@@ -292,13 +292,12 @@ fbapp2hidap <- function(fieldbook){
     
     ## composition of database headers or atributtes
     #abbre_user_give + #plot_number+ #rep/block+ #accesion_name(germoplasm_name)
-    library(dplyr)
-    library(tidyr)
+    #library(dplyr)
+    #library(tidyr)
     #dt2 <- data.frame(trait = dt$trait)
     dt2 <- dt2 %>% tidyr::separate(trait , c("Header", "CO_ID"), sep = "\\|")
     
     #ToDo 1: remove white spaces in values for all columns.
-    library(stringr)
     
     dt2$Header <- stringr::str_trim(dt2$Header, side = "both")
     dt2$CO_ID <- stringr::str_trim(dt2$CO_ID, side = "both")
@@ -308,10 +307,10 @@ fbapp2hidap <- function(fieldbook){
     dt3 <- dt2 %>% tidyr::unite(TRAIT, Header, CO_ID, sep = "-")
     
     dt3<- dt3 %>% unite(super_plot_name, abbr_user, plot_number, rep, accesion_name , timestamp, person ,location ,number, sep = "--")
-    dt4<- dt3 %>% group_by(super_plot_name, TRAIT) %>% 
-                  mutate(id= 1:n() ) %>%
-                  melt(id=c("super_plot_name", "id", "TRAIT")) %>%
-                  dcast(... ~ TRAIT + variable, value.var="value")
+    dt4<- dt3 %>% dplyr::group_by(super_plot_name, TRAIT) %>% 
+                  dplyr::mutate(id= 1:n() ) %>%
+                  data.table::melt(id=c("super_plot_name", "id", "TRAIT")) %>%
+                  data.table::dcast(... ~ TRAIT + variable, value.var="value")
     col_names <- gsub(pattern =  "_value", replacement = "", names(dt4))
     colnames(dt4) <- col_names
     dt5<- dt4 %>% tidyr::separate( super_plot_name, c("abbr_user", "plot_number", "rep", "accesion_name" , "timestamp", "person" ,"location" ,"number"), sep= "--")
@@ -340,7 +339,7 @@ hidap2fbApp <- function(fieldbook) {
      
      #fbdb1 <- fbdb %>% tidyr::unite(plot_name, abbr_user, plot_number, rep, accesion_name, sep = "_")
      trait_names <- names(fbdb1)[grepl("CO", x = names(fbdb1))]
-     fbdb2 <- fbdb1 %>% dplyr::gather_("trait", "value", names(fbdb1)[grepl("CO", x = names(fbdb1))])
+     fbdb2 <- fbdb1 %>% tidyr::gather_("trait", "value", names(fbdb1)[grepl("CO", x = names(fbdb1))])
      fbdb2$trait <-  stringr::str_replace_all(fbdb2$trait, pattern = "-", "|" )
      #head(fbdb2)
      fbdb3 <- fbdb2 %>% tidyr::separate( super_plot_name, c("abbr_user", "plot_number", "rep", "accesion_name" , "timestamp", "person" ,"location" ,"number"), sep= "--")
@@ -348,3 +347,15 @@ hidap2fbApp <- function(fieldbook) {
      fbdb3<- dplyr::filter(fbdb3, value!="NA") 
      out <- fbdb3  
 }
+
+#' Update rhandsontable
+#' @param fieldbook field data trough rhandsontable
+#' @description get updates from rhandonstable after user modifications
+#' @author Omar Benites 
+#' @export
+
+rhandsontable_update<- function(fieldbook){
+  fb <- as.data.frame(fieldbook)
+  temp <-fb
+  out <- temp 
+}
diff --git a/inst/app/app.R b/inst/app/app.R
index d137da2..81d1eb2 100644
--- a/inst/app/app.R
+++ b/inst/app/app.R
@@ -16,7 +16,7 @@ tabNameS <- "data_processing"
 
 server <- function(input, output, session,values) {
   values = shiny::reactiveValues()
-  fbcheck::fbcheck_server(input, output, session, values = values)
+  fbcheck::fbcheck_server_sbase(input, output, session, values = values)
 }
 
 ui <- dashboardPage(skin = "yellow",
@@ -31,7 +31,7 @@ ui <- dashboardPage(skin = "yellow",
                     ),
                     dashboardBody(
                       tabItems(
-                        fbcheck::fbcheck_ui(name = tabNameS)
+                        fbcheck::fbcheck_ui_sbase(name = tabNameS)
                       )
                     )
 )
diff --git a/man/fbapp2hidap.Rd b/man/fbapp2hidap.Rd
index 024e86f..3f1f1af 100644
--- a/man/fbapp2hidap.Rd
+++ b/man/fbapp2hidap.Rd
@@ -2,12 +2,12 @@
 % Please edit documentation in R/utils.R
 \name{fbapp2hidap}
 \alias{fbapp2hidap}
-\title{Get form parameters from PVS forms}
+\title{FieldBookApp Data Processing --------------------------------------------}
 \usage{
 fbapp2hidap(fieldbook)
 }
 \arguments{
-\item{fieldbook}{fieldbook from FieldBookApp}
+\item{fieldbook}{fieldbook from FieldBookApp to HIDAP}
 }
 \description{
 Return pvs form parameters
diff --git a/man/fbcheck_server_sbase.Rd b/man/fbcheck_server_sbase.Rd
new file mode 100644
index 0000000..e379209
--- /dev/null
+++ b/man/fbcheck_server_sbase.Rd
@@ -0,0 +1,23 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/fbcheck_server_sbase.R
+\name{fbcheck_server_sbase}
+\alias{fbcheck_server_sbase}
+\title{Server component for traittools and data quality for HIDAP-SweetPotatoBase}
+\usage{
+fbcheck_server_sbase(input, output, session, values)
+}
+\arguments{
+\item{input}{shinyserver input}
+
+\item{output}{nameo of the output element}
+
+\item{session}{shinyserver session}
+
+\item{values}{The reactive values}
+}
+\description{
+Returns server side components for HIDAP-SweetPotatoBase
+}
+\author{
+Omar Benites
+}
diff --git a/man/fbcheck_ui_sbase.Rd b/man/fbcheck_ui_sbase.Rd
new file mode 100644
index 0000000..cc49858
--- /dev/null
+++ b/man/fbcheck_ui_sbase.Rd
@@ -0,0 +1,24 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/fbcheck_ui_sbase.R
+\name{fbcheck_ui_sbase}
+\alias{fbcheck_ui_sbase}
+\title{UI for traittools and data quality for HIDAP-SweetPotatoBase
+Returns user friendly ui for HIDAP-SweetPotatoBase}
+\usage{
+fbcheck_ui_sbase(type = "tab", title = "Data Quality and Processing",
+  name = "data_processing")
+}
+\arguments{
+\item{type}{type of UI element, deault is a tab in a shinydashboard}
+
+\item{title}{display title name}
+
+\item{name}{UI TabName}
+}
+\description{
+UI for traittools and data quality for HIDAP-SweetPotatoBase
+Returns user friendly ui for HIDAP-SweetPotatoBase
+}
+\author{
+Omar Benites
+}
diff --git a/man/hidap2fbApp.Rd b/man/hidap2fbApp.Rd
new file mode 100644
index 0000000..3fd0c2e
--- /dev/null
+++ b/man/hidap2fbApp.Rd
@@ -0,0 +1,17 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/utils.R
+\name{hidap2fbApp}
+\alias{hidap2fbApp}
+\title{FieldBookApp Data Processing --------------------------------------------}
+\usage{
+hidap2fbApp(fieldbook)
+}
+\arguments{
+\item{fieldbook}{fieldbook from HIDAP to FieldBookApp}
+}
+\description{
+Return pvs form parameters
+}
+\author{
+Omar Benites
+}
diff --git a/man/rhandsontable_update.Rd b/man/rhandsontable_update.Rd
new file mode 100644
index 0000000..716b8b9
--- /dev/null
+++ b/man/rhandsontable_update.Rd
@@ -0,0 +1,17 @@
+% Generated by roxygen2: do not edit by hand
+% Please edit documentation in R/utils.R
+\name{rhandsontable_update}
+\alias{rhandsontable_update}
+\title{Update rhandsontable}
+\usage{
+rhandsontable_update(fieldbook)
+}
+\arguments{
+\item{fieldbook}{field data trough rhandsontable}
+}
+\description{
+get updates from rhandonstable after user modifications
+}
+\author{
+Omar Benites
+}
diff --git "a/tests/testthat/excel/PTPVS112016_CA\303\221AYPATA_exp1.xlsx" b/tests/testthat/excel/PTPVS112016_CANAYPATA_exp1.xlsx
similarity index 100%
rename from "tests/testthat/excel/PTPVS112016_CA\303\221AYPATA_exp1.xlsx"
rename to tests/testthat/excel/PTPVS112016_CANAYPATA_exp1.xlsx
diff --git a/tests/testthat/test_organoleptic.R b/tests/testthat/test_organoleptic.R
index ae6d1e3..43e95a2 100644
--- a/tests/testthat/test_organoleptic.R
+++ b/tests/testthat/test_organoleptic.R
@@ -68,7 +68,7 @@ testthat::test_that("Organoleptic Baby with just one empty form",{
 
 # test_that("Organoleptic form with some panelist evaluating some genotypes", {
 # 
-#   f6_evalxpanelgroup  <- readxl::read_excel(path = "excel/PTPVS112016_CAÑAYPATA_exp1.xlsx", sheet = "F6_organoleptic_mother")
+#   f6_evalxpanelgroup  <- readxl::read_excel(path = "excel/PTPVS112016_CANAYPATA_exp1.xlsx", sheet = "F6_organoleptic_mother")
 #   datos <- as.data.frame(f6_evalxpanelgroup)
 #   form <- datos
 #   form <- split_tidy_form(form = form) #DF_f6 was changed by form argument