小编Mic*_*_NC的帖子

我是R的新手,我在Ui.R中有这个代码:

library(shiny)

ui <- shinyUI(fluidPage(

  titlePanel("Test 1"),

  sidebarLayout(
    sidebarPanel(
      checkboxGroupInput("sex", "sex", c("Men", "Women")),
      textOutput("number")
   ),

   mainPanel(

   )
  )
))

而这个代码在Server.R中:

server <- shinyServer(function(session, input, output) {

  observeEvent(input$sex, {
    if (input$sex == "Men"){s<-1}
    number<-as.numeric(s)

    if (input$sex == "Women"){s<-2}
    number<-as.numeric(s)

    if (input$sex == "Men" & input$sex == "Women"){s<-5}
    number<-as.numeric(s)

    if (is.null(input$sex)) {s<-10}
    number<-as.numeric(s)

    output$number<-renderText({number})
  })
  })

所以,我不明白为什么"数字"在检查两个复选框时没有取值5,如果我取消选中这两个框,为什么"数字"不取值10？

如果你能帮我理解,请.

非常感谢你.

编辑:如何取消选中checkboxGrouInput"动态"？

library(shiny)

ui <- shinyUI(fluidPage(

  titlePanel("Test 1"),

  sidebarLayout(
    sidebarPanel(
      checkboxGroupInput(inputId = "sex", label = "sex",choices =  
                                    c("Men", "Women", "Children")),
      textOutput("number")
      ),

      mainPanel(
        checkboxGroupInput(inputId …

我建立了一个传单地图,我想绘制我点击的多边形.我尝试使用"input $ mymap_shape_click"和"event $ id"但它不起作用.请你帮助我好吗 ？这是一个可重复的例子.

这是我的ui:

library(shiny)
library(shinydashboard)
library(leaflet)
library(plotly)
library(shinyBS)

ui <- dashboardPage(
  dashboardHeader(
    title = "TEST",
    titleWidth = 500), # end of dashboardHeader

  dashboardSidebar(## Sidebar content
    sidebarMenu(
      id = "Menu1",
      menuItem("Map", tabName = "map", icon = icon("globe"))
    ) # end of sidebarMenu
  ), # end of dashboardSidebar

  # Body content
  dashboardBody(

      tabItem(tabName = "map",

              bsModal("modal", "Map datas", "btn_modal", size = "large",

                  fluidRow(
                    column(12, dataTableOutput("map_table"))
                  ) # end of fluidRow(

          ), # end of bsModal(

          fluidRow(

            div(class="outer",

                tags$head(includeCSS("D:/R/TEST_RP_2014/www/styles.css")), …