inst/Example.R

In AgronomicForecastingLab/pSIMSSiteMaker: pSIMSSiteMaker

library(pSIMSSiteMaker)
debugonce(pSIMS_Site_Make)


pSIMS_Site_Make(dirname = "/home/marcel",
                camp_list=list(planting=list(depth="35")),# this is for the json,
                param_list=list(ref_year=2010L, tappinp=list(soiltile="2.soil.nc4"))
                )



#-------------------------------------------
debugonce(pSIMS_Site_Make)

tmp_param <- Read_param_template()
tmp_param$model <- "apsim79"

host <-
  list(name = 'cc-login.campuscluster.illinois.edu',
       user = 'hamzed',
       tunnel = '~/tunnel/tunnel',
       from='/home/hamzed/pSIMS/NewProject',
       to='/projects/aces/hamzed/psims/Data/')

pSIMS_Site_Make(dirname = "/home/hamzed/pSIMS",
                Param_template_Obj=tmp_param,
                camp_list=list(planting=list(depth="35")),
                host=host,
                Bash_control=list(pSIMS_Data_Path="/pysims/data", # No need to edit this
                                  pSIMS_server_Path="/projects/aces/hamzed/psims/Data",
                                  pSIMS_Sing_Image="/projects/aces/mkivi2/psims/Bash/apsim_psims_image/custom_psims_full.img"),
                param_list=list(ref_year=2010L, tappinp=list(soiltile="1.soil.nc4"))
)



#---- Create the tunnel using this bash command
#ssh -n -N -f -o ControlMaster=yes -S ~/tunnel/tunnel  hamzed@cc-login.campuscluster.illinois.edu


#Test the tunnel
#print(remote.execute.cmd(host, 'ls', c('-l', '/'), stderr=TRUE))