test for #177

SymbolixAU · Sep 17, 2018 · 667a10b · 667a10b
1 parent 8557f65
commit 667a10b
Show file tree

Hide file tree

Showing 5 changed files with 29 additions and 5 deletions.
diff --git a/R/google_places.R b/R/google_places.R
@@ -99,7 +99,7 @@
 #'
 #' @inheritSection google_geocode API use and limits
 #'
-#' @seealso \link{google_place_details}
+#' @seealso \link{google_place_details} \link{google_find_place}
 #'
 #' @examples
 #' \dontrun{
@@ -242,6 +242,8 @@ google_places <- function(
 #'  \item{Atmosphere - }{price_level, rating}
 #' }
 #'
+#' @seealso \link{google_place_details} \link{google_places}
+#'
 #' @examples
 #' \donttest{
 #'
@@ -263,7 +265,6 @@ google_places <- function(
 #'  , inputtype = "phonenumber"
 #' )
 #'
-#'
 #' }
 #'
 #' @export

diff --git a/cran-comments.md b/cran-comments.md
@@ -2,7 +2,7 @@
 ## Release summary
 
 * Updates v2.7.0 to v2.7.1
-* fixed [failing CRAN checks](https://cran.r-project.org/web/checks/check_results_googleway.html) in accordance with new Google Places API
+* fixed [failing CRAN checks](https://cran.r-project.org/web/checks/check_results_googleway.html) which were caused by the new Google Places API
 
 ## Test Environments
 

diff --git a/man/google_find_place.Rd b/man/google_find_place.Rd
diff --git a/man/google_places.Rd b/man/google_places.Rd
diff --git a/tests/manual_tests.R b/tests/manual_tests.R
@@ -779,6 +779,27 @@
 # }
 # shinyApp(ui, server)
 
+# ## circle clicks
+# library(shiny)
+#
+# ui <- fluidPage(
+#   google_mapOutput(outputId = "map", height = "800px")
+# )
+#
+# server <- function(input, output){
+#
+#   mapKey <- read.dcf("~/Documents/.googleAPI", fields = "GOOGLE_MAP_KEY")
+#   output$map <- renderGoogle_map({
+#     google_map(key = mapKey, event_return_type = "json") %>%
+#       add_circles(data = tram_stops)
+#   })
+#
+#   observeEvent(input$map_circle_click, {
+#     print(input$map_circle_click)
+#   })
+# }
+# shinyApp(ui, server)
+