Der Name which.min und which.max Ausgang der gleiche Wert aufgrund fehlenden

Question

ich folgende Daten mit Korea mit einem fehlenden Wert zwischen zwei Spalten:

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

Ich brauche die Namen der Früchte drucken vom minimalen Wert bis zum maximalen Wert. Ich habe dies:

price <- function(val){ 
    # General Functions ---- 
    val <- tolower(val) 
    myrow <- fruit[val,] 
    nation <- tools::toTitleCase(val) 

    name.min <- names(myrow)[which.min(c(myrow))] 
    name.max <- names(myrow)[which.max(c(myrow))] 

    cat(paste0("There is an 'NA' between two columns: ", name.min, " ", name.max)) 
} 

Das Problem ist, dass, weil es ein fehlender Wert zwischen Korea Apfel und Banane ist, das ist, was er druckt:

> price("korea") 
There is an NA between two columns: apple apple 

Ich mag es so aussehen:

> price("korea") 
There is an NA between two columns? No problem: apple banana 

Answer 1

price <- function(val){ 
    val <- tolower(val) 
    myrow <- fruit[val,] 
    nation <- tools::toTitleCase(val) 

    name.min <- names(myrow)[which.min(c(myrow))] 
    name.max <- names(which(myrow == max(myrow))) 

    cat(paste0(name.max)) 
} 

> price("korea") 
apple banana 

Answer 2

Diese hässlich ist, aber sollte das tun, was Sie suchen,:

price <- function(x) { 
    temp <- data.frame(val = as.numeric(fruit[rownames(fruit)==x,]), 
        name = colnames(fruit)) 
    ind <- which(is.na(temp[,1])) 
    if (length(ind!=0)) temp <- temp[-ind,] 
    temp[order(temp[,1]),2] 
} 

price("korea")