transformers <- styler::tidyverse_style()
transformers$token$fix_quotes <- function (pd_flat) {
  str_const <- pd_flat$token == 'STR_CONST'
  str_const_change <- grepl('^"(.*)"$', pd_flat$text[str_const])
  raw_str <- sub('^"(.*)"$', '\\1', (pd_flat$text[str_const][str_const_change]))
  raw_str <- gsub('(\\\\)?\'', '\\\\\'', raw_str)
  raw_str <- gsub('\\\\"', '"', raw_str)
  pd_flat$text[str_const][str_const_change] <- paste0('\'', raw_str, '\'')
  pd_flat
}
styler::style_pkg(transformers = transformers)