Tidyverse Rowwise sum of columns that may or may not exist

Question

Consider the following tibble:

library(tidyverse)
data <- tibble(x = c(rnorm(5,2,n = 10)*1000,NA,1000),
               y = c(rnorm(1,1,n = 10)*1000,NA,NA))