R shinydashboard 不顯示以 if 和 if…else 語句為條件的內容

Question

我有一個閃亮的儀表板，我想在其中顯示基於 selectInput("instruenti") 的內容，它有 4 個選項。

我設法為基於 renderLeaflet 的輸出“mymap”和 if、else if 和 else 語句做到這一點，但它不適用於基於 renderPlotly 的 Plotly 輸出“Odnos ulaganja i stanovništva”。

這是模擬數據（iris 數據集）上的 UI 和服務器的代碼，它與我的原始數據存在相同的問題： UI：

library(shiny)
library(shinydashboard)
library(plotly)
library(tidyverse)
library(leaflet)

Vrste<- c("setosa", "versicolor", "virginica")

ui <- dashboardPage(
  dashboardHeader(title = "mockapp"),
  dashboardSidebar(sidebarMenu(
                      menuItem("Geografski prikaz", tabName = "Geografski_prikaz", 
                               menuItem(selectInput("instrumenti", "Instrumenti",
                                                    choices = Vrste), tabName = "Submenu")))),
  dashboardBody(
    tabItems(
      # First tab content
      tabItem(tabName = "Submenu",
              fluidRow(
                box(width=12, solidHeader = TRUE,
                    title = "Geografski prikaz ulaganja",
                    leafletOutput("mymap", height=550))),
              fluidRow(  
                box(title ="Odnos ulaganja i stanovništva", solidHeader = TRUE, plotlyOutput("scatter", width=4,height=220)),
                box(title ="Ulaganje po stanovniku", solidHeader = TRUE, plotlyOutput("bar", width=6,height=250)),
                tags$head(tags$style(HTML(' /* body */
                                .content-wrapper, .right-side {
                                background-color:   #FFFFFF;
                                }'
                )
                )
                ))))))

服務器：

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

  output$scatter<-renderPlotly({
    if(input$instrumenti == "setosa"){
      plot_ly(iris,
              x = ~ Sepal.Length, 
              y = ~Sepal.Width) %>% 
        add_trace(type = 'scatter',  mode = 'markers', opacity = 0.7)
      
    } else if (input$instrumenti == "versicolor") {
      plot_ly(iris,
              x = ~ Sepal.Width, 
              y = ~Petal.Length) %>% 
        add_trace(type = 'scatter',  mode = 'markers', opacity = 0.7)
      
      
    } else {
      plot_ly(iris,
              x = ~ Petal.Length, 
              y = ~Petal.Width ) %>% 
        add_trace(type = 'scatter',  mode = 'markers', opacity = 0.7)
    }
  })
  
  
}

# Run the application 
shinyApp(ui = ui, server = server)

正如您將看到的，您將獲得第一個選項的散點圖（if(input$instrumenti == "setosa")），但如果您更改 selectInput 中的選擇，則不再有圖形或任何其他選項。 奇怪的是，我沒有收到任何錯誤。 也許有人可以看到錯誤。 tnx

Answer 1

那是因為您設置的width = 4太小了。 嘗試這個

library(shiny)
library(shinydashboard)
library(plotly)
library(tidyverse)
library(leaflet)

Vrste<- c("setosa", "versicolor", "virginica")

ui <- dashboardPage(
  dashboardHeader(title = "mockapp"),
  dashboardSidebar(sidebarMenu(
    menuItem("Geografski prikaz", tabName = "Geografski_prikaz", 
             menuItem(selectInput("instrumenti", "Instrumenti",
                                  choices = Vrste), tabName = "Submenu")))),
  dashboardBody(
    tabItems(
      # First tab content
      tabItem(tabName = "Submenu",
              # fluidRow(
              #   box(width=12, solidHeader = TRUE,
              #       title = "Geografski prikaz ulaganja",
              #       leafletOutput("mymap", height=550))),
              fluidRow(  
                box(title ="Odnos ulaganja i stanovništva", solidHeader = TRUE, plotlyOutput("scatter", width=300,height=220)),
                box(title ="Ulaganje po stanovniku", solidHeader = TRUE, plotlyOutput("bar", width=300,height=250)),
                tags$head(tags$style(HTML(' /* body */
                                .content-wrapper, .right-side {
                                background-color:   #FFFFFF;
                                }'
                )
                )
                ))))))


server <- function(input, output, session) {
  observe({print(input$instrumenti)})
  output$scatter<-renderPlotly({
    if(input$instrumenti == "setosa"){
      p <- plot_ly(iris,
              x = ~ Sepal.Length, 
              y = ~Sepal.Width) %>% 
        add_trace(type = 'scatter',  mode = 'markers', opacity = 0.7)
      
    } else if (input$instrumenti == "versicolor") {
      p <- plot_ly(iris,
              x = ~ Sepal.Width, 
              y = ~Petal.Length) %>% 
        add_trace(type = 'scatter',  mode = 'markers', opacity = 0.7)
      
      
    } else {
      p <- plot_ly(iris,
              x = ~ Petal.Length, 
              y = ~Petal.Width ) %>% 
        add_trace(type = 'scatter',  mode = 'markers', opacity = 0.7)
    }
    p
  })
  
}


shinyApp(ui = ui , server = server)