dplyr的filter函数异常：按当前年月过滤数据框无结果

云原生阿岚

2026-5-26

Fixing dplyr Filter Issue with Current Month/Year in Shiny

Hey there! Let's dig into why your dplyr::filter call isn't returning any results—this is a super common formatting mismatch issue, so we'll get it sorted quickly.

The Root Problem

Looking at your current.month reactive function:

current.month <- reactive({ gsub("0", " ", format(Sys.Date(), "%m")) })

Here's what's going wrong:

format(Sys.Date(), "%m") returns a two-digit month string (e.g., "05" for May, "10" for October).
Your gsub replaces every "0" with a space, so "05" becomes " 5" (with a leading space) and "10" becomes "1 " (with a trailing space).
Since your data frame's month values are standard character strings (like "05" or "5") without extra spaces, there's no match—hence the empty result set.

Simple Fixes

Let's adjust your reactive functions to match the format of your data:

1. Keep Two-Digit Month Format (Most Reliable)

If your data frame uses two-digit months (e.g., "01" for January, "12" for December), remove the gsub entirely:

current.month <- reactive({ format(Sys.Date(), "%m") })
current.year <- reactive({ format(Sys.Date(), "%Y") })

Now your filter will match perfectly with two-digit month values in your data.

2. Use Numeric Matching (Avoids String Format Headaches)

If your data uses one-digit months (e.g., "1" instead of "01"), convert both the reactive month and your data's month to integers:

current.month <- reactive({ as.integer(format(Sys.Date(), "%m")) })
current.year <- reactive({ as.integer(format(Sys.Date(), "%Y")) })

# Then filter like this:
your_filtered_data <- your_data %>%
  filter(
    as.integer(your_month_column) == current.month(),
    as.integer(your_year_column) == current.year()
  )

3. Clean Up Leading Zeros (Without Adding Spaces)

If you want a one-digit character month, use str_remove (from stringr) or convert to integer then back to character instead of gsub:

# Using stringr
current.month <- reactive({ stringr::str_remove(format(Sys.Date(), "%m"), "^0") })

# Or base R
current.month <- reactive({ as.character(as.integer(format(Sys.Date(), "%m"))) })

This gives you "5" instead of " 5", which will match one-digit character months in your data.

Bonus: Better Date Handling with lubridate

If your data has a full date column (e.g., "2024-05-15"), skip splitting into month/year columns entirely—use the lubridate package to extract values directly:

library(lubridate)

current.year <- reactive({ year(Sys.Date()) })
current.month <- reactive({ month(Sys.Date()) })

your_filtered_data <- your_data %>%
  filter(
    year(your_date_column) == current.year(),
    month(your_date_column) == current.month()
  )

This eliminates all formatting mismatch risks because you're working with numeric date components directly.

内容的提问来源于stack exchange，提问作者datanalyst