| Title: | Regulatory Submission Profiles for Clinical Submission Readiness |
|---|---|
| Description: | Defines submission profiles per regulatory authority with authority-specific pillar weights, decision thresholds, indicator requirements, and risk configuration. Supports the U.S. Food and Drug Administration (FDA), European Medicines Agency (EMA), Pharmaceuticals and Medical Devices Agency (PMDA), Health Canada, Therapeutic Goods Administration (TGA), and Medicines and Healthcare products Regulatory Agency (MHRA). Integrates with 'r4subscore' and 'r4subrisk' configuration systems. |
| Authors: | Pawan Rama Mali [aut, cre, cph] (ORCID: <https://orcid.org/0000-0001-7864-5819>) |
| Maintainer: | Pawan Rama Mali <[email protected]> |
| License: | MIT + file LICENSE |
| Version: | 0.1.1 |
| Built: | 2026-05-15 09:38:54 UTC |
| Source: | https://github.com/r4sub/r4subprofile |
Returns a summary of all supported regulatory authorities with their full names, countries, and number of available submission types.
list_authorities()list_authorities()
A tibble with columns: authority, full_name, country,
n_submission_types.
list_authorities()list_authorities()
Returns the valid submission types for a given regulatory authority.
list_submission_types(authority)list_submission_types(authority)
authority |
Character. A supported authority name. |
A character vector of valid submission types.
list_submission_types("FDA") list_submission_types("EMA")list_submission_types("FDA") list_submission_types("EMA")
Print Profile Validation Result
## S3 method for class 'profile_validation' print(x, ...)## S3 method for class 'profile_validation' print(x, ...)
x |
A |
... |
Ignored. |
Invisibly returns x. Called for its side effect of printing the
compliance status, coverage percentage, and any missing indicators or
asset types to the console.
Print Submission Profile
## S3 method for class 'submission_profile' print(x, ...)## S3 method for class 'submission_profile' print(x, ...)
x |
A |
... |
Ignored. |
Invisibly returns x. Called for its side effect of printing a
summary of the submission profile (authority, submission type, pillar
weights, ready band, required indicators, and minimum coverage) to the
console.
Returns the list of indicator IDs that are mandatory for the given submission profile.
profile_required_indicators(profile)profile_required_indicators(profile)
profile |
A |
A character vector of required indicator_id values.
prof <- submission_profile("FDA", "NDA") profile_required_indicators(prof) prof_ind <- submission_profile("FDA", "IND") profile_required_indicators(prof_ind)prof <- submission_profile("FDA", "NDA") profile_required_indicators(prof) prof_ind <- submission_profile("FDA", "IND") profile_required_indicators(prof_ind)
Returns a list with structure compatible with r4subrisk::risk_config_default().
Can be passed directly to risk assessment functions.
profile_risk_config(profile)profile_risk_config(profile)
profile |
A |
A list of class "risk_config" with rpn_bands,
evidence_severity_to_probability, evidence_severity_to_impact,
and default_detectability.
prof <- submission_profile("FDA", "NDA") cfg <- profile_risk_config(prof) cfg$rpn_bandsprof <- submission_profile("FDA", "NDA") cfg <- profile_risk_config(prof) cfg$rpn_bands
Returns a list with structure compatible with r4subscore::sci_config_default().
Can be passed directly to compute_pillar_scores() or compute_sci().
profile_sci_config(profile)profile_sci_config(profile)
profile |
A |
A list of class "sci_config" with pillar_weights and bands.
prof <- submission_profile("FDA", "NDA") cfg <- profile_sci_config(prof) cfg$pillar_weights cfg$bandsprof <- submission_profile("FDA", "NDA") cfg <- profile_sci_config(prof) cfg$pillar_weights cfg$bands
Prints a formatted summary of a regulatory submission profile including authority details, pillar weights, decision bands, and requirements.
profile_summary(profile)profile_summary(profile)
profile |
A |
The profile object, invisibly.
prof <- submission_profile("FDA", "NDA") profile_summary(prof)prof <- submission_profile("FDA", "NDA") profile_summary(prof)
Constructs a regulatory submission profile with authority-specific pillar weights, decision bands, required indicators, and risk configuration.
submission_profile(authority, submission_type, study_phase = NULL)submission_profile(authority, submission_type, study_phase = NULL)
authority |
Character. Regulatory authority name (e.g., |
submission_type |
Character. Submission type for the authority
(e.g., |
study_phase |
Character or |
A list of class "submission_profile" with elements:
authority, full_name, country, submission_type, study_phase,
pillar_weights, bands, required_indicators, required_asset_types,
minimum_coverage, rpn_bands, default_detectability.
prof <- submission_profile("FDA", "NDA") prof$pillar_weights prof$required_indicators prof_ema <- submission_profile("EMA", "MAA", study_phase = "Phase3") prof_ema$bandsprof <- submission_profile("FDA", "NDA") prof$pillar_weights prof$required_indicators prof_ema <- submission_profile("EMA", "MAA", study_phase = "Phase3") prof_ema$bands
Checks whether an evidence table meets the requirements specified by a regulatory submission profile: required indicators present, required asset types covered, and minimum indicator coverage met.
validate_against_profile(evidence, profile)validate_against_profile(evidence, profile)
evidence |
A validated evidence data.frame conforming to the r4subcore evidence schema. |
profile |
A |
A list of class "profile_validation" with elements:
is_compliant: logical; TRUE if all requirements are met
missing_indicators: character vector of missing required indicator IDs
missing_asset_types: character vector of missing required asset types
coverage: numeric; fraction of required indicators present (0-1)
coverage_met: logical; whether coverage meets the minimum threshold
details: tibble with per-requirement status
## Not run: prof <- submission_profile("FDA", "NDA") result <- validate_against_profile(evidence, prof) result$is_compliant result$missing_indicators ## End(Not run)## Not run: prof <- submission_profile("FDA", "NDA") result <- validate_against_profile(evidence, prof) result$is_compliant result$missing_indicators ## End(Not run)