Что касается обходного пути, это то, что я придумал, чтобы извлечь совпадающие совпадения.
> x <- 'ACCACCACCAC'
> m <- gregexpr('(?=([AC]C))', x, perl=T)
> mapply(function(X) substr(x, X, X+1), m[[1]])
[1] "AC" "CC" "AC" "CC" "AC" "CC" "AC"
Не стесняйтесь добавлять или комментировать лучший способ выполнить эту задачу.
Вы никогда не должны хранить учетные данные аутентификации (идентификаторы пользователей, пароли, ключи API) в своем исходном коде, особенно если вы используете систему контроля версий, такую как git. Как только вы git push
, любой, имеющий доступ для чтения к хранилищу, получает доступ для записи в базу данных. Существует несколько распространенных альтернатив: