在Shiny中按日期过滤 [英] Filtering by date in Shiny
问题描述
作为一个可怜的闪亮家伙无法解决一个简单的任务。
cannot resolve a simple task as a poor Shiny guy.
我在数据框中有一行带有日期的
I have a row in a data frame with dates
crime.date <- strptime(incidents$REPORT_DAT, format = "%Y-%m-%d")
我的日期输出如下所示。
My output for dates looks like this.
[1] "2017-04-07 EDT" "2017-03-13 EDT" "2017-01-08 EST" "2017-01-25 EST" "2017-
01-03 EST" "2017-01-03 EST" "2017-01-03 EST"
[8] "2017-01-03 EST" "2017-01-03 EST" "2017-01-03 EST" "2017-01-03 EST" "2017-
01-04 EST" "2017-01-03 EST" "2017-01-03 EST"
现在,我尝试形象化此过滤器选择的所有犯罪的选择。 / p>
Now I try to visualize the selection of all crimes, chosen by this filter.
# USER INTERFACE CODE
ui <- fluidPage(
titlePanel("Washington, DC crimes by date"),
column(4, wellPanel(
dateRangeInput('dateRange',
label = 'Filter crimes by date',
start = crime.date , end = crime.date
)
)),
column(6,
verbatimTextOutput("dateRange")
)
)
# SERVER CODE
server <- function(input, output, session) {
output$dateRangeText <- renderText({
paste("input$dateRange is",
paste(as.character(input$dateRange), collapse = " to ")
)
})
}
shinyApp(ui = ui, server = server)
我相信我的错误是在开始和结束之间,因为我将它们的唯一的Crime.date变量放在了其中。
I believe that my mistake is somewhere between start and end because I put their only crime.date variable.
我想要什么?我想选择开始和结束日期并接收在此期间发生的所有事件(以文本形式输出现在是可以的)。
What do I want? I want to select start and end date and receive all incidents, which happened during this period (output as a text is fine for now).
任何帮助都是值得的。
Any help is MUCH APPRECIATED.
谢谢
Oleksiy
推荐答案
要过滤数据框,我们可以使用以下行
To filter your dataframe, we can use the line
incidents %>% filter(REPORT_DAT >= input$dateRange[1] & REPORT_DAT <= input$dateRange[2])
在 renderDataTable
语句中。下面给出一个工作示例。请注意,由于您没有包括示例数据,因此我自己创建了一些示例数据。
within a renderDataTable
statement. A working example is given below. Note that since you did not include sample data, I created some sample data myself.
希望这会有所帮助!
library(dplyr)
library(shiny)
# Sample data
incidents = data.frame(REPORT_DAT=c('2018-01-01','2018-02-01','2018-03-01','2018-04-01','2018-05-01'))
# Convert character to Date
incidents$REPORT_DAT = as.Date(incidents$REPORT_DAT, format = "%Y-%m-%d")
ui <- fluidPage(
titlePanel("Washington, DC crimes by date"),
column(4, wellPanel(
dateRangeInput('dateRange',
label = 'Filter crimes by date',
start = as.Date('2018-01-01') , end = as.Date('2018-06-01')
)
)),
column(6,
dataTableOutput('my_table')
)
)
server <- function(input, output, session) {
output$my_table <- renderDataTable({
# Filter the data
incidents %>% filter(REPORT_DAT >= input$dateRange[1] & REPORT_DAT <= input$dateRange[2])
})
}
shinyApp(ui = ui, server = server)
这篇关于在Shiny中按日期过滤的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!