- fixed one note

land-info-lab · Jan 26, 2024 · 0a21490 · 0a21490
1 parent bf1f2ed
commit 0a21490
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/R/calculate_diversity.R b/R/calculate_diversity.R
@@ -48,7 +48,10 @@ calculate_diversity <- function(viewshed,
   p <- land_class$proportion
   sdi <- sd_index(p)
   if (proportion) {
-    return(list(SDI=sdi, Proportion=t(subset(land_class, select = c(type, proportion)))))
+    return(list(SDI=sdi,
+                Proportion=t(subset(land_class,
+                                    select = c(.data$type,
+                                               proportion)))))
   } else {
     return(sdi)
   }