Warning: file_get_contents(/data/phpspider/zhask/data//catemap/5/sql/87.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
反应式SQl查询中的dateRangeInput-日期输出格式错误_Sql_R - Fatal编程技术网

反应式SQl查询中的dateRangeInput-日期输出格式错误

反应式SQl查询中的dateRangeInput-日期输出格式错误,sql,r,Sql,R,有人遇到过dateRangeInput的问题吗?我想用它来过滤我的数据,但是dateRangeInput的输出错误为2016-02-21,我需要它为2016年2月21日。我以为格式=dd.mm.yyyy会解决这个问题,但是我没有得到任何改变 我的代码: library(ROracle) library(shiny) library(DT) server <- shinyServer( function(input, output, session) { con <-

有人遇到过
dateRangeInput的问题吗?
我想用它来过滤我的数据,但是dateRangeInput的输出错误为2016-02-21,我需要它为2016年2月21日。我以为
格式=dd.mm.yyyy
会解决这个问题,但是我没有得到任何改变

我的代码:

library(ROracle)
library(shiny)
library(DT)


server <- shinyServer(
  function(input, output, session) {

    con <- dbConnect(dbDriver("Oracle"),"xx/K",username="user",password="pwd")
    tableList <- dbListTables(con,schema="K")

    updateSelectizeInput(session, "tabnames", server = TRUE, choices = tableList)

    output$date_ui=renderUI({
        dateRangeInput('date',
                       label = 'Datum: dd.mm.yyyy',
                       start = Sys.Date()-1, end = Sys.Date()+1,
                       separator = " bis ",
                       format = 'dd.mm.yyyy',language = "de")
      })


      sqlOutput <- reactive({
        sqlInput <- paste("select rownum * from K.",input$tabnames, "where dati_create between to_date('",format(input$date[1]),"','dd.mm.yyyy') and to_date('",input$date[2],"','dd.mm.yyyy')")
        print(sqlInput) # I have printed it to see the format of the date
        dbGetQuery(con$cc, sqlInput, stringsAsFactors = T)
      })

    output$table <- DT::renderDataTable(sqlOutput(), server=TRUE, rownames=TRUE, filter="top", options=list(pageLength=10))

    session$onSessionEnded(function() { dbDisconnect(con) })
  })

ui_panel <- 
  tabPanel("Test",
           sidebarLayout(
             sidebarPanel( 
             ),
             mainPanel(
               selectizeInput("tabnames",label = "server side", choices = NULL),
               uiOutput("date_ui"),
               tableOutput("out"),
               tableOutput("table")
             )
           )
  )


ui <- shinyUI(navbarPage("Test",ui_panel))

runApp(list(ui=ui,server=server))
有人知道如何在
dateRangeInput
中更改日期格式吗


谢谢你的帮助

您能否向我们展示您打算单独执行的原始SQL查询
21.02.2016
听起来不像我在SQL中常见的任何日期格式。请尝试
格式(输入$date[1],“%d.%m.%Y”)
即R端的格式。嘿!SQL查询(有效):
sqlInput谢谢danas.zuokas,您的答案非常有效!
[1] "select rownum * from K.xy where dati_create between to_date(' 2016-02-21 ','dd.mm.yyyy') and to_date(' 2016-02-23 ','dd.mm.yyyy')"
Error in .oci.GetQuery(conn, statement, data = data, prefetch = prefetch,  : 
  ORA-01861: literal does not match format string