if else..if条件在车把中

问题描述

这是我的与angularjs和handlerbars相关的代码，

library(shiny)
library(shinyWidgets)

data("mpg",package = "ggplot2")

ui <- fluidPage(
  fluidRow(
    column(
      width = 10,offset = 1,tags$h3("Filter data with selectize group"),panel(
        checkBoxGroupInput(
          inputId = "vars",label = "Variables to use:",choices = c("manufacturer","model","trans","class"),selected = c("manufacturer",inline = TRUE
        ),selectizeGroupUI(
          id = "my-filters",params = list(
            manufacturer = list(inputId = "manufacturer",title = "Manufacturer:"),model = list(inputId = "model",title = "Model:"),trans = list(inputId = "trans",title = "Trans:"),class = list(inputId = "class",title = "Class:")
          )
        ),status = "primary"
      ),DT::dataTableOutput(outputId = "table"),textoutput("manufacturer_selection")
    )
  )
)

server <- function(input,output,session) {
  
  vars_r <- reactive({
    input$vars
  })
  
  output$manufacturer_selection <- renderText({
    # print(names(input))
    # [1] "my-filters-reset_all"    "my-filters-manufacturer" "my-filters-trans"        "my-filters-model"        "my-filters-class"       
    # [6] "vars
    input[["my-filters-manufacturer"]]
  })
  
  res_mod <- callModule(
    module = selectizeGroupServer,id = "my-filters",data = mpg,vars = vars_r
  )
  
  output$table <- DT::renderDataTable({
    req(res_mod())
    res_mod()
  })
}

shinyApp(ui,server)

我需要在{{else if myData.teacher}}之前检查范围对象的值，请问有什么办法吗？在下面尝试了此操作，但没有用。

{{#if myData.student}}
  <student-list></student-list>
{{else if myData.teacher}}
  <teacher-list></teacher-list>
{{else}}
   <cities-list></cities-list>
{{/if}}

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）