จะจับจำนวนเต็ม (0) ได้อย่างไร?

สมมติว่าเรามีคำสั่งที่สร้างinteger(0)เช่น

 a <- which(1:3 == 5)

วิธีที่ปลอดภัยที่สุดในการจับสิ่งนี้คืออะไร?

นั่นคือวิธีของ R ในการพิมพ์เวกเตอร์ที่มีความยาวเป็นศูนย์ (จำนวนเต็มหนึ่ง) ดังนั้นคุณสามารถทดสอบaความยาว 0:

R> length(a)
[1] 0

มันอาจจะมีมูลค่าการทบทวนกลยุทธ์ที่คุณใช้ในการระบุซึ่งองค์ประกอบที่คุณต้องการ แต่ไม่มีรายละเอียดที่เฉพาะเจาะจงต่อไปมันเป็นเรื่องยากที่จะแนะนำกลยุทธ์ทางเลือก

ถ้าเป็นจำนวนเต็มที่มีความยาวเป็นศูนย์โดยเฉพาะคุณต้องการอะไรเช่น

is.integer0 <- function(x)
{
  is.integer(x) && length(x) == 0L
}

ตรวจสอบด้วย:

is.integer0(integer(0)) #TRUE
is.integer0(0L)         #FALSE
is.integer0(numeric(0)) #FALSE

คุณยังสามารถใช้assertiveสำหรับสิ่งนี้

library(assertive)
x <- integer(0)
assert_is_integer(x)
assert_is_empty(x)
x <- 0L
assert_is_integer(x)
assert_is_empty(x)
## Error: is_empty : x has length 1, not 0.
x <- numeric(0)
assert_is_integer(x)
assert_is_empty(x)
## Error: is_integer : x is not of class 'integer'; it has class 'numeric'.

อาจจะไม่ตรงประเด็น แต่ R มีสองฟังก์ชันที่ดีรวดเร็วและว่างเปล่าสำหรับการลดเวกเตอร์เชิงตรรกะ - anyและall:

if(any(x=='dolphin')) stop("Told you, no mammals!")

แรงบันดาลใจจากคำตอบของ Andrie คุณสามารถใช้identicalและหลีกเลี่ยงปัญหาแอตทริบิวต์ใด ๆ โดยใช้ความจริงที่ว่ามันเป็นชุดว่างของคลาสออบเจ็กต์นั้นและรวมเข้ากับองค์ประกอบของคลาสนั้น:

attr(a,"foo")<-"bar"

> identical(1L,c(a,1L))
[1] TRUE

หรือโดยทั่วไป:

is.empty <- function(x, mode=NULL){
    if (is.null(mode)) mode <- class(x)
    identical(vector(mode,1),c(x,vector(class(x),1)))
}

b <- numeric(0)

> is.empty(a)
[1] TRUE
> is.empty(a,"numeric")
[1] FALSE
> is.empty(b)
[1] TRUE
> is.empty(b,"integer")
[1] FALSE

if ( length(a <- which(1:3 == 5) ) ) print(a)  else print("nothing returned for 'a'") 
#[1] "nothing returned for 'a'"

ในความคิดที่สองฉันคิดว่าสิ่งใดสวยงามกว่าlength(.):

 if ( any(a <- which(1:3 == 5) ) ) print(a)  else print("nothing returned for 'a'") 
 if ( any(a <- 1:3 == 5 ) ) print(a)  else print("nothing returned for 'a'") 

isEmpty()รวมอยู่ในแพ็คเกจฐาน S4Vectors ไม่ต้องโหลดแพ็คเกจอื่นใด

a <- which(1:3 == 5)
isEmpty(a)
# [1] TRUE