使用 R r 更改 txt 文件中的值

Question

我想编写一个软代码来更改我的水文模型输入 txt 文件中所需参数的值。有些参数是固定的，有些我会更改为观察值。例如 HYDRUS_Version=4 是固定的，而 WaterFlow=1 和 SoluteTransport=0 等是我想要更改其值的参数。我想分配 waterFlow=5 或 WaterFlow=3.1 和 SoluteTransport=2 或 =2.2 的值

我为水流尝试了这段代码，但我的 txt 文件中的值没有改变。我只是 R 的新手。

    lines <- readLines("G:/Rlearning/HYDRUS1D.txt")

        library(gsubfn)
        i1 <- grepl("Vertical Conductivity", lines)
        lines[i1] <- gsubfn("[0-9.]+", ~format(as.numeric(x)*2, 
                                           scientific = FALSE), lines[i1])

下面是完整的txt文件。

;
[Main]
HYDRUS_Version=4
WaterFlow=1
SoluteTransport=0
Unsatchem=0
Unsatchem=0
HP1=0
HeatTransport=0
EquilibriumAdsorption=1
MobileImmobile=0
RootWaterUptake=1
RootGrowth=0
MaterialNumbers=1
SubregionNumbers=1
SpaceUnit=cm
TimeUnit=days
PrintTimes=160
NumberOfSolutes=0
InitialCondition=1
;
[Profile]
NumberOfNodes=101
ProfileDepth=1.2E+02
ObservationNodes=5
GridVisible=1
SnapToGrid=1
ProfileWidth=80
LeftMargin=40
GridOrgX=0
GridOrgY=0
GridDX=5.E+00
GridDY=5.E+00

Answer 1

创建一个自定义函数来搜索匹配的字符串并替换值：

replaceFn <- function(phrase, value, file){
  line <- file[grep(phrase, file)]
  value.pos <- as.numeric(gregexpr("=", line))
  file[grep(phrase, file)] <- paste0(substring(line, 1, value.pos), value)
  return(file)
}


dat <- replaceFn("WaterFlow", 3.1, dat)
dat <- replaceFn("SoluteTransport", 2.2, dat)

[1] ";"                       "[Main]"                  "HYDRUS_Version=4"        "WaterFlow=3.1"           "SoluteTransport=2.2"     "Unsatchem=0"            
[7] "Unsatchem=0"             "HP1=0"                   "HeatTransport=0"         "EquilibriumAdsorption=1" "MobileImmobile=0"        "RootWaterUptake=1"      
[13] "RootGrowth=0"            "MaterialNumbers=1"       "SubregionNumbers=1"      "SpaceUnit=cm"            "TimeUnit=days"           "PrintTimes=160"         
[19] "NumberOfSolutes=0"       "InitialCondition=1"      ";"                       "[Profile]"               "NumberOfNodes=101"       "ProfileDepth=1.2E+02"   
[25] "ObservationNodes=5"      "GridVisible=1"           "SnapToGrid=1"            "ProfileWidth=80"         "LeftMargin=40"           "GridOrgX=0"             
[31] "GridOrgY=0"              "GridDX=5.E+00"           "GridDY=5.E+00"   

输入数据：

dat <- c(";", "[Main]", "HYDRUS_Version=4", "WaterFlow=1", "SoluteTransport=0", 
"Unsatchem=0", "Unsatchem=0", "HP1=0", "HeatTransport=0", "EquilibriumAdsorption=1", 
"MobileImmobile=0", "RootWaterUptake=1", "RootGrowth=0", "MaterialNumbers=1", 
"SubregionNumbers=1", "SpaceUnit=cm", "TimeUnit=days", "PrintTimes=160", 
"NumberOfSolutes=0", "InitialCondition=1", ";", "[Profile]", 
"NumberOfNodes=101", "ProfileDepth=1.2E+02", "ObservationNodes=5", 
"GridVisible=1", "SnapToGrid=1", "ProfileWidth=80", "LeftMargin=40", 
"GridOrgX=0", "GridOrgY=0", "GridDX=5.E+00", "GridDY=5.E+00")