jpinfect (version 2023.2026.02)

jpinfect_read_bullet: Import one week or more weeks of bullet reports

Description

This function imports and processes surveillance data files downloaded from the Japan Institute for Health Security (JIHS). The processed data for the specified year and weeks is combined into a single data frame, optionally saved to a file.

Usage

jpinfect_read_bullet(
  year = NULL,
  week = 1:53,
  directory,
  language = "en",
  output_file = NULL
)

Value

A data frame containing the combined and processed JIHS surveillance data. If `output_file` is specified, the data is also saved to a CSV file in the specified directory.

Arguments

year

An integer specifying the year of the data files to process. If NULL, all years available in the directory are processed.

week

A numeric vector specifying the weeks to process (default is 1:53).

directory

A string specifying the directory containing the JIHS data files (required).

language

A character string specifying the language of the data ('en' for English, 'jp' for Japanese). Default is 'en'.

output_file

A string specifying the file name to save the combined data. If NULL, the combined data is not saved (default is NULL).

Details

- The function reads all files matching the specified `year` and `language` in the given `directory`. - Files are filtered based on their naming patterns, which include `_zensu_en.csv` for English and `_zensu_jp.csv` for Japanese. - Each file is read and processed, including renaming columns, adding `year` and `week` information, and rearranging columns. - If no files matching the criteria are found, the function raises an error. - Processed data for all specified files is combined into a single data frame.

Examples

# \donttest{
# Get path to example data files
data_dir <- system.file("extdata", package = "jpinfect")

# Process data for 2025, weeks 1 to 2, in English
combined_data <- jpinfect_read_bullet(year = 2025, week = 1:2,
                                         directory = data_dir,
                                         language = "en",
                                         output_file = tempfile("output.csv"))

# }