在R中使用dateRangeInput进行API查询
在R中使用dateRangeInput进行API查询
提问于 2019-04-27 21:49:38
我正在尝试从R/Shiny中的API查询日期范围。我使用dateRangeInput来指定范围，并且API文档指定调用是：
spuddate，值应为RFC3339格式，即在该属性上开始钻探的最新日期。示例: spuddate=gt(2006-01-02T15:04:05Z) spuddate=le(2017-03)。
我该如何正确地做这件事呢？
我尝试了几种使用anytime和rfc3339的方法，但我一直收到各种错误。我怀疑这一定与我在服务器中构造输入调用的方式有关。
#UI - Obviously there are more but for sake of brevity here is the subset
sidebarPanel(
fluidRow(
column(12,
selectizeInput('stateSelect','STATE', choices= paste0(state.abb, sep=''), multiple=FALSE))
),
fluidRow(
column(12,
selectizeInput('directionSelect','HOLE DIRECTION', choices= c('H','V','D','U'), multiple=FALSE))
),
fluidRow(
column(12,
dateRangeInput("dateSelect", label = h3("Spud Date range")))
),#Server Try So Far -- Obviously there are more but for sake of brevity here is the subset
observeEvent(input$select, {
wellInfo <- GET("https://di-api.drillinginfo.com/v2/direct-access/producing-entities",
add_headers(c('X-API-KEY' = key, 'Authorization' = addToken, 'Accept' = 'text/xml')),
query=list(drilltype = dput(input$directionSelect), state = dput(input$stateSelect),
spuddate = (rfc3339(anytime(input$dateSelect[1])),rfc3339(anytime(input$dateSelect[2]))),
pagesize = 100000))
})我只想让查询开始。它在没有spuddate调用的情况下工作(即只有state和drilltype查询)。任何帮助都将不胜感激！谢谢。
回答 1
Stack Overflow用户
发布于 2019-04-28 01:04:40
好了，我想出了一个暴力解决方案。
date1 <- paste('btw(',date(anytime(input$dateSelect[1])),
',',date(anytime(input$dateSelect[2])),')', sep='')
wellInfo <- GET("https://di-api.drillinginfo.com/v2/direct-access/producing-entities",
add_headers(c('X-API-KEY' = key, 'Authorization' = addToken, 'Accept' = 'text/xml')),
query=list(drilltype = dput(input$directionSelect), state = dput(input$stateSelect),
spuddate = dput(date1),
#spuddate <= (as.POSIXct(as.character(input$dateSelect2, format = '%Y-%m'))),
pagesize = 100000))页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/55881208
复制相关文章
相似问题