################################################################################
# Very Sketchy version of clone reference runs

library(PEcAn.benchmark)

bety <- betyConnect("/home/carya/pecan/web/config.php")

php.config <- "/home/carya/pecan/web/config.php"

test <- tbl(bety,"reference_runs") %>% filter(id == 1000000087) %>% collect

# Set reference run id
# Eliandro's runs are
# 1000000073 1000000074 1000000075 1000000076
# 1000000077 1000000078 1000000079 1000000080
# 1000000081 1000000082 1000000083 1000000084
# 1000000085 1000000086 1000000086 1000000087

reference_run_id <- 1000000073

# Create new settings list
settings <- list()


# Add info and databaes
config.list <- PEcAn.utils::read_web_config("/home/carya/pecan/web/config.php")

settings$info <- list(userid = -1) # This is my user id. I have no idea how to get people to log in to their accounts through the web interface and right now the benchmarking code has sections dependent on user id - I will fix this.
settings$database <- list(
  bety = list(
    user = config.list$db_bety_username,
    password = config.list$db_bety_password,
    host = config.list$db_bety_hostname,
    dbname = config.list$db_bety_database,
    driver = "PostgreSQL",# config.list$db_bety_type
    write = TRUE
  ),
  dbfiles = config.list$dbfiles_folder
)

# Add ref run id under benchmarking tag

settings$benchmarking <- list(
  reference_run_id = reference_run_id
)

# read_settings_BRR imports all settings info from the database
settings <- read_settings_BRR(settings)

settings$outdir <- "/home/carya/output/refruns"
settings$host$name <- "localhost"
settings$pfts$pft$name
settings$pfts$pft$outdir <- file.path("/home/carya/output/refruns/pft",settings$pfts$pft$name)
settings$host$rundir
settings$host$outdir
settings$rundir
settings$modeloutdir
settings$benchmarking <- NULL
str(settings)