# NOT RUN {
non_standard_df <- readRDS(system.file("extdata/non_standard_df.rds", package = "ampir"))
# non_standard_df
# seq_name seq_aa
# [1] G1P6H5_MYOLU MALTVRIQAACLLLLLLASLTSYSLLLSQTTQLADLQTQ....
# [2] fake_sequence MKVTHEUSYR$GXMBIJIDG*M80-%
remove_nonstandard_aa(non_standard_df)
# seq_name seq_aa
# [1] G1P6H5_MYOLU MALTVRIQAACLLLLLLASLTSYSLLLSQTTQLADLQTQ....
# }
Run the code above in your browser using DataLab