Question

我想通过单击r shinny中的复选框来显示标记。我已经使用了几种方法，但是我不知道如何我可以解决这个问题吗？我已经有图书馆了。

p.s如果您知道如何选择多个复选框，请告诉我如果我们选择多个，则只会选择前一个。

library(ggiraphExtra)
library(kormaps2014)
library(shiny)
library(shinythemes)
library(DT)
library(ggplot2)
library(ggmap)
library(leaflet)
library(tidyverse)
library(shiny)
library(shinythemes)
library(devtools)
library(dplyr)

shinyApp(
  ui = tagList(
    navbarPage(
      theme = shinytheme("flatly"),
      "개인별 적금상품 분석",
      tabPanel("지점찾기",
               sidebarPanel(
                 fluidPage(
                 # Copy the chunk below to make a group of checkboxes
                  checkboxGroupInput("checkGroup", label = h3("도시별"), 
                                     choices = choicesNames1,
                                     selected = "서울특별시"),
                 submitButton("확인"),
                 hr()
                 )),
               mainPanel(
                 leafletOutput("mymap",height = 700,width=700),
                 DT::dataTableOutput("value")
                 )))),
  server = function(input, output) {
    output$value <- DT::renderDataTable(DT::datatable({
      if(input$checkGroup=="서울특별시") {
        location <- data.frame(service_cpy[grep("서울",service_cpy$도로명주소),])}
      if(input$checkGroup=="부산광역시") {
        location <- data.frame(service_cpy[grep("부산",service_cpy$도로명주소),])}
      location
    }))

    output$mymap <- renderLeaflet({
      m <- leaflet() %>%
        addTiles() %>%
        setView(lng=127.29, lat=36.38 , zoom=7)
      if(input$checkGroup=="서울특별시") {
        m<-addCircles(lng=place_df$lng,lat = place_df$lat)}
      if(input$checkGroup=="부산광역시") {
        location <- data.frame(service_cpy[grep("부산",service_cpy$도로명주소),])}
      m
        }
    )
  }
)

我可以在R Shiny的传单地图上使用标记吗？

0 个答案: