crs0 <- fm_CRS("longlat")
p4s <- fm_proj4string(crs0)
lst <- fm_CRSargs_as_list(p4s)
crs1 <- fm_list_as_CRS(lst)
lst$a <- 2
crs2 <- fm_CRS(p4s, args = lst)
print(fm_proj4string(crs0))
print(fm_proj4string(crs1))
print(fm_proj4string(crs2))
Run the code above in your browser using DataLab