r - 将单个单词的最后一个字母大写

Question

在 R 中尝试编写一个函数，该函数接受单词 MarsuPial 并导致 marsupiaL。

当前代码

mycap <- function(mystr = "") {
  mystr <- tolower(mystr)
  a <- substr(mystr, 1, 1)
  b <- substr(mystr, 2, nchar(mystr))
  paste(tolower(a), b, sep = "")
}

标签： rtouppertolower

Answer 1

您可以使用substr<-大写最后一个字符。

mycap <- function(mystr = "") {
  mystr <- tolower(mystr)
  n <- nchar(mystr)
  substr(mystr, n, n) <- toupper(substr(mystr, n, n))
  return(mystr)
}

mycap('MarsuPial')
#[1] "marsupiaL"
mycap('dummy')
#[1] "dummY"