hollorol/RBBGCMuso
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

changing vartable 6

Browse Source
This commit is contained in:
Roland Hollós 2020-09-29 12:23:22 +02:00
parent 4cf0a45029
commit ca11375ba9
2 changed files with 15513 additions and 15552 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
RBBGCMuso/R/soilQuery.R
View File

@ -12,9 +12,11 @@ getSoilDataFull <- function(lat, lon, apiURL, port) {
apiURL <- "https://81.169.232.36" apiURL <- "https://81.169.232.36"
} }
if(missing(port)){ if(missing(port)){
port <- 4445 port <- ""
} else{
port = glue(":{port}")
} }
apiString <- glue("{apiURL}:{port}/query?lon={lon}&lat={lat}") apiString <- glue("{apiURL}{port}/query?lon={lon}&lat={lat}")
soilREST <- with_config(config(ssl_verifypeer=0L, ssl_verifyhost=0L), soilREST <- with_config(config(ssl_verifypeer=0L, ssl_verifyhost=0L),
GET(apiString)) # This is temporary solution ssl_verification wont bypass GET(apiString)) # This is temporary solution ssl_verification wont bypass
content(soilREST) content(soilREST)
@ -36,10 +38,10 @@ createSoilFile <- function(lat,lon,
method="constant",apiURL, method="constant",apiURL,
apiPort,template=system.file("examples/hhs/hhs.soi",package="RBBGCMuso")) { apiPort,template=system.file("examples/hhs/hhs.soi",package="RBBGCMuso")) {
if(missing(apiURL)){ if(missing(apiURL)){
apiURL <- "https://81.169.232.36" apiURL <- "https://rest.soilgrids.org/soilgrids/v2.0/properties"
} }
if(missing(apiPort)){ if(missing(apiPort)){
apiPort <- 4445 apiPort <- ""
} }
outFile <- suppressWarnings(readLines(template)) outFile <- suppressWarnings(readLines(template))
outFile[1] <- sprintf("SOILPROP FILE - lat: %s, lon: %s, created in: %s",lat,lon,date()) outFile[1] <- sprintf("SOILPROP FILE - lat: %s, lon: %s, created in: %s",lat,lon,date())

31055
RBBGCMuso/inst/data/varTable6.json
View File

File diff suppressed because it is too large Load Diff