inst/tinytest/test_filex_template.R

In DSSAT: A Comprehensive R Interface for the DSSAT Cropping Systems Model

# "filex_template_general()"

  expected <-
    data.frame(
      PEOPLE = NA_character_, ADDRESS = NA_character_,
      SITE = NA_character_,
      PAREA = NA_real_, PRNO = NA_real_, PLEN = NA_real_,
      PLDR = NA_real_, PLSP = NA_real_,
      PLAY = NA_character_, HAREA = NA_real_,
      HRNO = NA_real_, HLEN = NA_real_,
      HARM = NA_character_)

  expected$NOTES <- list(NA_character_)

  expect_identical(
                   info = "filex_template_general()",
    DSSAT:::filex_template_general(),
    expected)

# "filex_template_treatments()"

  expected <-
    data.frame(
      N = 1, R = 0, O = 0, C = 0, TNAME = "",
      CU = 1, FL = 1, SA = 0, IC = 0, MP = 1,
      MI = 0, MF = 0, MR = 0, MC = 0, MT = 0,
      ME = 0, MH = 0, SM = 1
    )

  expect_identical(
                   info = "filex_template_treatments()",
    DSSAT:::filex_template_treatments(),
    expected)

# "filex_template_cultivars()"

  expected <-
    data.frame(
      C = 1, CR = "FA", INGENO = "IB0001", CNAME = ""
    )

  expect_identical(
                   info = "filex_template_cultivars()",
    DSSAT:::filex_template_cultivars(),
    expected)

# "filex_template_fields()"

  expected <-
    data.frame(
      L = 1,
      ID_FIELD = NA_character_, WSTA = NA_character_, FLSA = NA_character_,
      FLOB = NA_real_, FLDT = NA_character_, FLDD = NA_real_,
      FLDS = NA_real_, FLST = NA_character_,
      SLTX = NA_character_, SLDP = NA_real_, ID_SOIL = NA_character_,
      FLNAME = NA_character_,
      XCRD = NA_real_, YCRD = NA_real_, ELEV = NA_real_,
      AREA = NA_real_, SLEN = NA_real_, FLWR = NA_real_,
      SLAS = NA_real_, FLHST = NA_character_,
      FHDUR = NA_real_
    )

  expect_identical(
                   info = "filex_template_fields()",
    DSSAT:::filex_template_fields(),
    expected)

# "filex_template_simulation_controls()"

  expected <-
    data.frame(
      N = 1,
      GENERAL = "GE",
      NYERS = 1, NREPS = 1, START = "S",
      SDATE = NA_character_, RSEED = 2150,
      SNAME = NA_character_, SMODEL = NA_character_,
      OPTIONS = "OP",
      WATER = "N", NITRO = "N", SYMBI = "N", PHOSP = "N",
      POTAS = "N", DISES = "N", CHEM = "N", TILL = "N",
      CO2 = "M",
      METHODS = "ME",
      WTHER = "M", INCON = "M", LIGHT = "E", EVAPO = "R",
      INFIL = "S", PHOTO = "L", HYDRO = "R", NSWIT = 1,
      MESOM = "G", MESEV = "R", MESOL = 2,
      MANAGEMENT = "MA",
      PLANT = "R", IRRIG = "N", FERTI = "N", RESID = "N",
      HARVS = "M",
      OUTPUTS = "OU",
      FNAME = "N", OVVEW = "Y", SUMRY = "Y", FROPT = 1,
      GROUT = "N", CAOUT = "N", WAOUT = "N", NIOUT = "N",
      MIOUT = "N", DIOUT = "N", VBOSE = "N", CHOUT = "N",
      OPOUT = "N", FMOPT = "A",
      PLANTING = "PL",
      PFRST = NA_character_, PLAST = NA_character_,
      PH2OL = NA_real_, PH2OU = NA_real_,
      PH2OD = NA_real_, PSTMX = NA_real_, PSTMN = NA_real_,
      IRRIGATION = "IR",
      IMDEP = NA_real_, ITHRL = NA_real_,
      ITHRU = NA_real_, IROFF = NA_character_, IMETH = NA_character_,
      IRAMT = NA_real_, IREFF = NA_real_,
      NITROGEN = "NI",
      NMDEP = NA_real_, NMTHR = NA_real_, NAMNT = NA_real_,
      NCODE = NA_character_, NAOFF = NA_character_,
      RESIDUES = "RE",
      RIPCN = NA_real_, RTIME = NA_real_,
      RIDEP = NA_real_,
      HARVEST = "HA",
      HFRST = NA_character_, HLAST = NA_character_,
      HPCNP = NA_real_, HPCNR = NA_real_,
      SIMDATES = "SI",
      ENDAT = NA_character_, SDUR = NA_real_, FODAT = NA_character_,
      FSTRYR = NA_real_, FENDYR = NA_real_, FWFILE = NA_character_,
      FONAME = NA_character_
    )

  expect_identical(
                   info = "filex_template_simulation_controls()",
    DSSAT:::filex_template_simulation_controls(),
    expected)


# "filex_template_fertilizers()"

  expected <-
    data.frame(
      F = 1, FDATE = as.POSIXct(NA), FMCD = NA_character_, FACD = NA_character_,
      FDEP = NA_real_, FAMN = NA_real_, FAMP = NA_real_, FAMK = NA_real_,
      FAMC = NA_real_, FAMO = NA_real_, FOCD = NA_character_,
      FERNAME = NA_character_
    )

  expect_identical(
                   info = "filex_template_fertilizers()",
    DSSAT:::filex_template_fertilizers(),
    expected)

# "filex_template_planting_details()"

  expected <- data.frame(P = 1,
                         PDATE = as.POSIXct(NA),
                         EDATE = as.POSIXct(NA),
                         PPOP = NA_real_,
                         PPOE = NA_real_,
                         PLME = NA_character_,
                         PLDS = NA_character_,
                         PLRS = NA_real_,
                         PLRD = NA_real_,
                         PLDP = NA_real_,
                         PLWT = NA_real_,
                         PAGE = NA_real_,
                         PENV = NA_real_,
                         PLPH = NA_real_,
                         SPRL = NA_real_,
                         PLNAME = NA_character_)

  expect_identical(
                   info = "filex_template_planting_details()",
    DSSAT:::filex_template_planting_details(),
    expected)


# "filex_template()"

  expected <- list(
    GENERAL = data.frame(
      PEOPLE = NA_character_, ADDRESS = NA_character_,
      SITE = NA_character_,
      PAREA = NA_real_, PRNO = NA_real_, PLEN = NA_real_,
      PLDR = NA_real_, PLSP = NA_real_,
      PLAY = NA_character_, HAREA = NA_real_,
      HRNO = NA_real_, HLEN = NA_real_,
      HARM = NA_character_
    ),
    TREATMENTS = data.frame(
      N = 1, R = 0, O = 0, C = 0, TNAME = "",
      CU = 1, FL = 1, SA = 0, IC = 0, MP = 1,
      MI = 0, MF = 0, MR = 0, MC = 0, MT = 0,
      ME = 0, MH = 0, SM = 1
    ),
    CULTIVARS = data.frame(
      C = 1, CR = "FA", INGENO = "IB0001", CNAME = ""
    ),
    FIELDS = data.frame(
      L = 1,
      ID_FIELD = NA_character_, WSTA = NA_character_, FLSA = NA_character_,
      FLOB = NA_real_, FLDT = NA_character_, FLDD = NA_real_,
      FLDS = NA_real_, FLST = NA_character_,
      SLTX = NA_character_, SLDP = NA_real_, ID_SOIL = NA_character_,
      FLNAME = NA_character_,
      XCRD = NA_real_, YCRD = NA_real_, ELEV = NA_real_,
      AREA = NA_real_, SLEN = NA_real_, FLWR = NA_real_,
      SLAS = NA_real_, FLHST = NA_character_,
      FHDUR = NA_real_
    ),
    `PLANTING DETAILS` = data.frame(
      P = 1, PDATE = as.POSIXct(NA), EDATE = as.POSIXct(NA), PPOP = NA_real_,
      PPOE = NA_real_, PLME = NA_character_, PLDS = NA_character_,
      PLRS = NA_real_, PLRD = NA_real_, PLDP = NA_real_, PLWT = NA_real_,
      PAGE = NA_real_, PENV = NA_real_, PLPH = NA_real_, SPRL = NA_real_,
      PLNAME = NA_character_
      ),
    `SIMULATION CONTROLS` = data.frame(
        N = 1,
        GENERAL = "GE",
        NYERS = 1, NREPS = 1, START = "S",
        SDATE = NA_character_, RSEED = 2150,
        SNAME = NA_character_, SMODEL = NA_character_,
        OPTIONS = "OP",
        WATER = "N", NITRO = "N", SYMBI = "N", PHOSP = "N",
        POTAS = "N", DISES = "N", CHEM = "N", TILL = "N",
        CO2 = "M",
        METHODS = "ME",
        WTHER = "M", INCON = "M", LIGHT = "E", EVAPO = "R",
        INFIL = "S", PHOTO = "L", HYDRO = "R", NSWIT = 1,
        MESOM = "G", MESEV = "R", MESOL = 2,
        MANAGEMENT = "MA",
        PLANT = "R", IRRIG = "N", FERTI = "N", RESID = "N",
        HARVS = "M",
        OUTPUTS = "OU",
        FNAME = "N", OVVEW = "Y", SUMRY = "Y", FROPT = 1,
        GROUT = "N", CAOUT = "N", WAOUT = "N", NIOUT = "N",
        MIOUT = "N", DIOUT = "N", VBOSE = "N", CHOUT = "N",
        OPOUT = "N", FMOPT = "A",
        PLANTING = "PL",
        PFRST = NA_character_, PLAST = NA_character_,
        PH2OL = NA_real_, PH2OU = NA_real_,
        PH2OD = NA_real_, PSTMX = NA_real_, PSTMN = NA_real_,
        IRRIGATION = "IR",
        IMDEP = NA_real_, ITHRL = NA_real_,
        ITHRU = NA_real_, IROFF = NA_character_, IMETH = NA_character_,
        IRAMT = NA_real_, IREFF = NA_real_,
        NITROGEN = "NI",
        NMDEP = NA_real_, NMTHR = NA_real_, NAMNT = NA_real_,
        NCODE = NA_character_, NAOFF = NA_character_,
        RESIDUES = "RE",
        RIPCN = NA_real_, RTIME = NA_real_,
        RIDEP = NA_real_,
        HARVEST = "HA",
        HFRST = NA_character_, HLAST = NA_character_,
        HPCNP = NA_real_, HPCNR = NA_real_,
        SIMDATES = "SI",
        ENDAT = NA_character_, SDUR = NA_real_, FODAT = NA_character_,
        FSTRYR = NA_real_, FENDYR = NA_real_, FWFILE = NA_character_,
        FONAME = NA_character_
      )
  )
  expected$GENERAL$NOTES <- list(NA_character_)

  expect_identical(
                   info = "filex_template()",
    DSSAT:::filex_template(),
    expected)

# "filex_template(F = 1)"

  expected <- list(
    GENERAL = data.frame(
      PEOPLE = NA_character_, ADDRESS = NA_character_,
      SITE = NA_character_,
      PAREA = NA_real_, PRNO = NA_real_, PLEN = NA_real_,
      PLDR = NA_real_, PLSP = NA_real_,
      PLAY = NA_character_, HAREA = NA_real_,
      HRNO = NA_real_, HLEN = NA_real_,
      HARM = NA_character_
    ),
    TREATMENTS = data.frame(
      N = 1, R = 0, O = 0, C = 0, TNAME = "",
      CU = 1, FL = 1, SA = 0, IC = 0, MP = 1,
      MI = 0, MF = 0, MR = 0, MC = 0, MT = 0,
      ME = 0, MH = 0, SM = 1
    ),
    CULTIVARS = data.frame(
      C = 1, CR = "FA", INGENO = "IB0001", CNAME = ""
    ),
    FIELDS = data.frame(
      L = 1,
      ID_FIELD = NA_character_, WSTA = NA_character_, FLSA = NA_character_,
      FLOB = NA_real_, FLDT = NA_character_, FLDD = NA_real_,
      FLDS = NA_real_, FLST = NA_character_,
      SLTX = NA_character_, SLDP = NA_real_, ID_SOIL = NA_character_,
      FLNAME = NA_character_,
      XCRD = NA_real_, YCRD = NA_real_, ELEV = NA_real_,
      AREA = NA_real_, SLEN = NA_real_, FLWR = NA_real_,
      SLAS = NA_real_, FLHST = NA_character_,
      FHDUR = NA_real_
    ),
    `PLANTING DETAILS` = data.frame(
      P = 1, PDATE = as.POSIXct(NA), EDATE = as.POSIXct(NA), PPOP = NA_real_,
      PPOE = NA_real_, PLME = NA_character_, PLDS = NA_character_,
      PLRS = NA_real_, PLRD = NA_real_, PLDP = NA_real_, PLWT = NA_real_,
      PAGE = NA_real_, PENV = NA_real_, PLPH = NA_real_, SPRL = NA_real_,
      PLNAME = NA_character_
    ),
    FERTILIZERS = data.frame(
      F = 1, FDATE = as.POSIXct(NA), FMCD = NA_character_, FACD = NA_character_,
      FDEP = NA_real_, FAMN = NA_real_, FAMP = NA_real_, FAMK = NA_real_,
      FAMC = NA_real_, FAMO = NA_real_, FOCD = NA_character_,
      FERNAME = NA_character_
    ),
    `SIMULATION CONTROLS` = data.frame(
      N = 1,
      GENERAL = "GE",
      NYERS = 1, NREPS = 1, START = "S",
      SDATE = NA_character_, RSEED = 2150,
      SNAME = NA_character_, SMODEL = NA_character_,
      OPTIONS = "OP",
      WATER = "N", NITRO = "N", SYMBI = "N", PHOSP = "N",
      POTAS = "N", DISES = "N", CHEM = "N", TILL = "N",
      CO2 = "M",
      METHODS = "ME",
      WTHER = "M", INCON = "M", LIGHT = "E", EVAPO = "R",
      INFIL = "S", PHOTO = "L", HYDRO = "R", NSWIT = 1,
      MESOM = "G", MESEV = "R", MESOL = 2,
      MANAGEMENT = "MA",
      PLANT = "R", IRRIG = "N", FERTI = "N", RESID = "N",
      HARVS = "M",
      OUTPUTS = "OU",
      FNAME = "N", OVVEW = "Y", SUMRY = "Y", FROPT = 1,
      GROUT = "N", CAOUT = "N", WAOUT = "N", NIOUT = "N",
      MIOUT = "N", DIOUT = "N", VBOSE = "N", CHOUT = "N",
      OPOUT = "N", FMOPT = "A",
      PLANTING = "PL",
      PFRST = NA_character_, PLAST = NA_character_,
      PH2OL = NA_real_, PH2OU = NA_real_,
      PH2OD = NA_real_, PSTMX = NA_real_, PSTMN = NA_real_,
      IRRIGATION = "IR",
      IMDEP = NA_real_, ITHRL = NA_real_,
      ITHRU = NA_real_, IROFF = NA_character_, IMETH = NA_character_,
      IRAMT = NA_real_, IREFF = NA_real_,
      NITROGEN = "NI",
      NMDEP = NA_real_, NMTHR = NA_real_, NAMNT = NA_real_,
      NCODE = NA_character_, NAOFF = NA_character_,
      RESIDUES = "RE",
      RIPCN = NA_real_, RTIME = NA_real_,
      RIDEP = NA_real_,
      HARVEST = "HA",
      HFRST = NA_character_, HLAST = NA_character_,
      HPCNP = NA_real_, HPCNR = NA_real_,
      SIMDATES = "SI",
      ENDAT = NA_character_, SDUR = NA_real_, FODAT = NA_character_,
      FSTRYR = NA_real_, FENDYR = NA_real_, FWFILE = NA_character_,
      FONAME = NA_character_
    )
  )

  expected$GENERAL$NOTES <- list(NA_character_)

  expect_identical(
    info = "filex_template(F = 1)",
    DSSAT:::filex_template(F = 1),
    expected)