R/misc.R

In CampaR1: Trajectory Analysis

# @title .onAttach
# @description  Load required data into gloval enviroment
# @keywords internal
.onAttach<- function (libname, pkgname){
  packageStartupMessage(paste0(
    " ==============================================================\n",
    "    \n",
    "                            CAMPARI                           \n",
    "    \n",
    "    \n",
    " ------------------------------------------------------------\n",
    " Analysing time series.                 \n",
    " Version: ",utils::packageVersion("CampaR1"),"\n",
    " ==============================================================\n"))
}

.onLoad <- function(libname, pkgname) {
  op <- options()
  op.CampaR1 <- list(
    CampaR1.data_management = "R"
  )
  toset <- !(names(op.CampaR1) %in% names(op))
  if(any(toset)) options(op.CampaR1[toset])
  # .setting_up_netcdf()
#   if(getOption("CampaR1.data_management")=='netcdf'){
#     nc_lib_dir <- "/usr/include/"
#     makevars_file <- paste0('MY_PKG_LIBS= -lnetcdff -I', nc_lib_dir, '
# MY_PKG_FFLAGS= -fbacktrace -fbounds-check -fcheck-array-temporaries -g
# mypackage_FFLAGS = $(FPICFLAGS) $(SHLIB_FFLAGS) $(FFLAGS)
# all: $(SHLIB)
# main_clu_adjl_mst.o: main_clu_adjl_mst.f90
#         $(FC) $(mypackage_FFLAGS) $(MY_PKG_FFLAGS) -c main_clu_adjl_mst.f90 -o main_clu_adjl_mst.o $(MY_PKG_LIBS)
# 
# utilities_netcdf.o: utilities_netcdf.f90
#         $(FC) $(mypackage_FFLAGS) $(MY_PKG_FFLAGS) -c utilities_netcdf.f90 -o utilities_netcdf.o $(MY_PKG_LIBS)
# 
# PKG_LIBS= -lnetcdff -I', nc_lib_dir, '
# ')
#     cat(makevars_file, file = paste0(".R/Makevars"))
#   }
  invisible() #no output from this function
}