作为一个可怜的闪亮小伙子无法解决简单的任务。
我的数据框中有一行带有日期的
crime.date <- strptime(incidents$REPORT_DAT, format = "%Y-%m-%d")
我的日期输出如下所示。
[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"
现在我尝试可视化通过此过滤器选择的所有犯罪的选择。
# 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变量。
我想要什么?我想选择开始和结束日期并接收在此期间发生的所有事件(目前以文本形式输出就可以了)。
非常感谢任何帮助。
谢谢
要过滤您的数据框,我们可以使用该行
incidents %>% filter(REPORT_DAT >= input$dateRange[1] & REPORT_DAT <= input$dateRange[2])
在
renderDataTable
声明中。下面给出了一个工作示例。请注意,由于您没有包含示例数据,所以我自己创建了一些示例数据。
希望这有帮助!
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)