# # crea las carpetas
# crearFolder <- function(directorio, nombre, ...){
# salida <- .createFolder(directorio, nombre,...)
# return(salida)
# }
#
# # genera la base para cada barco 2000-2009
# idBarco <- function(directorio, anho, caletas, ...){
# salida <- .baseBoat(directorio, anho, caletas, ... )
# return(salida)
# }
#
# # genera la base para cada barco 2010-
# idBarco2 <- function(directorio, anho, caletas, ...){
# salida <- .baseBoat2(directorio, anho, caletas, ... )
# return(salida)
# }
# # Reconocimiento del viaje
# idViaje <- function(directorio, anho, ...){
# salida <- .cacularViaje(directorio, anho, ...)
# return(salida)
# }
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.