Ajout de sauts de ligne aux fonctions de concaténation?

Question

Quelle est la commande que je dois utiliser pour ajouter des sauts de ligne lors de la concaténation des fonctions?

est le script ici:

canada <- c(50, 50, 50) 
korea <- c(70, 70, 70) 
brazil <- c(100, 100, 100) 
fruit <- rbind(canada, korea, brazil) 
colnames(fruit) <- c("apple", "orange", "banana") 

one <- function(x){ 
    x <- tolower(x) # assuming all row names are in lower case 
    myrow <- fruit[x,] 

    count <- sapply(seq_along(myrow), 
         function(x, n, i) 
         {paste0(x[i], "")}, 
         x=myrow[1], n=names(myrow)) 
    count[length(count)] <- paste0(count[length(count)]) 
    count <- paste(count[1]) 

    cat(tools::toTitleCase(x), "has", count, "thousand farms") # General statement 
} 

Voici ce que j'ai essayé:

cat(one("canada"), '\n\n', one("canada")) 
Canada has 50 thousand farmsCanada has 50 thousand farms 

Je veux qu'il ressemble à ceci:

Canada has 50 thousand farms 

Canada has 50 thousand farms 

Answer 1

Votre problème est que Dans votre fonction vous utilisez chat où vous devez utiliser coller (cocher? coller et? chat pour comprendre les différences). avec ce funciton il devrait fonctionner correctement:

one <- function(x){ 
    x <- tolower(x) # assuming all row names are in lower case 
    myrow <- fruit[x,] 

    count <- sapply(seq_along(myrow), 
            function(x, n, i) 
            {paste0(x[i], "")}, 
            x=myrow[1], n=names(myrow)) 
    count[length(count)] <- paste0(count[length(count)]) 
    count <- paste(count[1]) 

    ret <- paste(tools::toTitleCase(x), "has", count, "thousand farms") # General statement 
} 

afin d'éliminer les blancs en fin de la deuxième ligne, vous devez ajouter sep = « » à la dernière déclaration:

cat(one("canada"), ' \n\n ', one("canada"), sep="")