AnilGoyal's questions

Estou observando um comportamento estranho. O mapeamento de cylvariáveis ​​(a partir de dados mtcars) está produzindo o gráfico com 5 níveis diferentes, alphaapesar de apenas três níveis estarem disponíveis lá?

Isso é um bug? Ou estou faltando alguma coisa?

library(tidyverse)
count(mtcars, cyl)
#>   cyl  n
#> 1   4 11
#> 2   6  7
#> 3   8 14

ggplot(mtcars, aes(x = wt, y = mpg)) +
  geom_point(aes(alpha = cyl), size = 4)

^{Criado em 24/08/2024 com reprex v2.1.1}

Eu criei um aplicativo brilhante (no painel brilhante) com muitos itens de menu e submenu. Como a seguinte estrutura de árvore

    sidebarMenu(
      menuItem("Item 1", tabName = "item1", icon = icon("dashboard")),
      menuItem("Item 2", tabName = "item2", icon = icon("th"),
               menuSubItem("Subitem1", tabName = "subitem1"),
               menuSubItem("Subitem2", tabName = "subitem2")),
      menuItem("Item 3", tabName = "item3", icon = icon("bolt"),
               menuSubItem("Subitem3", tabName = "subitem3"),
               menuSubItem("Subitem4", tabName = "subitem4")
               )
    )

Na primeira página tenho quatro botões de ação. Eu quero que quando qualquer botão de ação for clicado, a página "subitem#" correspondente possa ser aberta. Não consigo fazer isso com shinydashboard::updateTabItems. Por favor ajude. O código/aplicativo de exemplo é

library(shiny)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(title = "Dynamic Tab Example"),
  dashboardSidebar(
    sidebarMenu(
      menuItem("Item 1", tabName = "item1", icon = icon("dashboard")),
      menuItem("Item 2", tabName = "item2", icon = icon("th"),
               menuSubItem("Subitem1", tabName = "subitem1"),
               menuSubItem("Subitem2", tabName = "subitem2")),
      menuItem("Item 3", tabName = "item3", icon = icon("bolt"),
               menuSubItem("Subitem3", tabName = "subitem3"),
               menuSubItem("Subitem4", tabName = "subitem4")
               )
    )
  ),
  dashboardBody(
    tabItems(
      tabItem(
        "item1",
        actionButton("button1", "navigate to subitem1"),
        actionButton("button2", "navigate to subitem2"),
        actionButton("button3", "navigate to subitem3"),
        actionButton("button4", "navigate to subitem4")
      ),
      tabItem("subitem1",
              box(
                title = "Item 1",
                actionButton("button1", "Button 1")
              )
      ),
      tabItem("subitem2",
              box(
                title = "Item 2 Content",
                "This is the content for Item 2."
              )
      ),
      tabItem("subitem3",
              box(
                title = "Item 3 Content",
                "This is the content for Item 3."
              )
      ),
      tabItem("subitem4",
              box(
                title = "Item 4 Content",
                "This is the content for Item 4."
              )
      )
    )
  )
)

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

}

shinyApp(ui, server)