From 6691d5870675727e7c7f07ff31ce5aebae834610 Mon Sep 17 00:00:00 2001
From: Romain Francois <romain@purrple.cat>
Date: Tue, 12 Feb 2019 11:52:28 +0100
Subject: [PATCH] using . instead of .data$.

---
 DESCRIPTION             | 24 ++++++++++++------------
 NAMESPACE               |  1 +
 R/getSettingsMetadata.R |  2 +-
 R/zzz.R                 |  2 ++
 4 files changed, 16 insertions(+), 13 deletions(-)
 create mode 100644 R/zzz.R

diff --git a/DESCRIPTION b/DESCRIPTION
index 07e47a2a..23831197 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -21,16 +21,16 @@ Suggests:
     shinytest,
     knitr
 Imports: 
-	dplyr, 
-	htmlwidgets,
-	purrr,
-	stringr,
- 	jsonlite, 
- 	shiny,
-	magrittr,
-	DT,
-	shinyjs,
-	rmarkdown,
-	rlang
+    dplyr,
+    htmlwidgets,
+    purrr,
+    stringr,
+    jsonlite,
+    shiny,
+    magrittr,
+    DT,
+    shinyjs,
+    rmarkdown,
+    rlang,
+    utils
 VignetteBuilder: knitr
-
diff --git a/NAMESPACE b/NAMESPACE
index 5b3e526a..129a3f5b 100644
--- a/NAMESPACE
+++ b/NAMESPACE
@@ -25,3 +25,4 @@ importFrom(shiny,runApp)
 importFrom(stringr,str_detect)
 importFrom(stringr,str_split)
 importFrom(stringr,str_subset)
+importFrom(utils,globalVariables)
diff --git a/R/getSettingsMetadata.R b/R/getSettingsMetadata.R
index c928d9d6..14257138 100644
--- a/R/getSettingsMetadata.R
+++ b/R/getSettingsMetadata.R
@@ -47,7 +47,7 @@ getSettingsMetadata<-function(charts=NULL, text_keys=NULL, cols=NULL, filter_exp
       return(NULL)
     }else{
       # see if any of the matched chart flags are TRUE
-      md<-md%>%filter_at(vars(matched_chart_columns),any_vars(.data$.==TRUE))
+      md<-md%>%filter_at(vars(matched_chart_columns),any_vars(.))
     }
   }
   
diff --git a/R/zzz.R b/R/zzz.R
new file mode 100644
index 00000000..d98cc940
--- /dev/null
+++ b/R/zzz.R
@@ -0,0 +1,2 @@
+#' @importFrom utils globalVariables
+globalVariables(c("."))