首页 \ 问答 \ 在语法定义中表示Sublime Text正则表达式中的“小于”符号(Represent “less-than” symbol in Sublime Text regex in syntax definition)

在语法定义中表示Sublime Text正则表达式中的“小于”符号(Represent “less-than” symbol in Sublime Text regex in syntax definition)

 我正在使用一个古老的前XML标记，它使用“$ = x”形式的代码，其中x可以是字母字符或键盘上的符号，例如; （分号）,? （问号）或< （ 
 
   右 
 左角括号，又 
 
   大于 
 小于）。 [编辑后的注意事项：原始措辞中出现的混淆问题是问题的核心所在。 请参阅我对已接受答案的评论。 RS]  
 所以我在我的User文件夹中修改了XML.tmLanguage语法定义文件的副本，以识别这些代码所代表的11个不同的类别，因此我可以在大文本文件（也包含XML标记）中轻松看到它们我是与...合作。  
 对于所有符号，除了<我能够通过在其前面加上反斜杠来转义符号。 但是在ST2使用的Boost正则表达式引擎中， \<是表示您只想在单词的开头匹配的方式。 因此，我无法正确识别和突出显示此代码。  
 在这种情况下，我到处寻找如何逃避<符号。 我试过用0,1,2,3和4反斜杠前面的; 我也尝试使用十六进制转义码\x{3009} 。 [注意：这是大于而不是小于的代码。]  
 一切都是徒劳。 （一些替代方案没有生成错误消息，但也没有突出显示代码。）  
 因为我正在处理的代码需要以不同的颜色着色，所以我不能使用通用符号代替< ，我也不能指定它。 我怎么得到这个？ 

I'm working with an ancient pre-XML markup that uses codes of the form "$=x", where x may be an alphabetic character or a symbol on the keyboard, such as ; (semicolon), ? (question mark), or < ( 
 
   right 
  left angle bracket, aka 
 
   greater-than 
  less-than). [Note after editing: the confusion manifested in the question as originally phrased goes to the heart of the problem. See my comment to the accepted answer. RS] 
So I've modified a copy of XML.tmLanguage syntax definition file in my User folder to identify the eleven different categories that these codes represent, so I can easily see them in the large text files (which also contain XML markup) I'm working with. 
For all the symbols except < I'm able to escape the symbol by preceding it with a backslash. But in the Boost regex engine that ST2 uses, \< is how you indicate that you want to match only at the start of a word. Consequently I've been unable to get this code to be properly recognized and highlighted. 
I've looked everywhere for how to escape the < symbol in this circumstance. I've tried preceding it with 0, 1, 2, 3 and 4 back-slashes; and I also tried using the hexadecimal escape code \x{3009}. [Note: this is the code for greater-than instead of less-than.] 
All in vain. (A few alternatives didn't generate an error message but also didn't highlight the code.) 
Because the codes I'm working with need to be colored differently, I can't use a generic symbol in lieu of <, and I can't specify it either. How do I get this?

原文：https://stackoverflow.com/questions/19571749

更新时间：2022-06-26 13:06

最满意答案

 我已经编辑了代码现在正在工作。 你应该把两个输入放在两个不同的观察中。  
 这是服务器。 R：  
server <- function(input, output, session){

  fund_group <- reactive({ # this is the list of fund group including fund name
    # for example,
    list("domestic" = c("a","b", "c"),  "global" = c( "aa", "bb", "cc"))
    # list name and fund name in the list are changable
  })

  observe({
    group_name <- reactive({ names(fund_group()) })
    updateSelectInput( session,
                       "select_group",
                       choices = group_name() )

  })

  observe({
    fund_list <- reactive({ fund_group()[[input$select_group]] })
    updateCheckboxGroupInput( session,
                              "fund_in_group",
                              choices = fund_list(),
                              selected = fund_list())
  })

}
 
 这是ui.R：  
ui <- navbarPage( "narvarTitle",
            tabPanel( "tab panel",

                      fluidRow( column( 3, wellPanel( textOutput( "fixed_anual_date" ),
                                                      br(),
                                                      br(),
                                                      selectInput( "select_group",
                                                                   label = "Select group",
                                                                   choices = "" ),
                                                      br(),
                                                      checkboxGroupInput( "fund_in_group",
                                                                          label = "Select funds :",
                                                                          choices = "" ),
                                                      br()
                      ) )
                      ) )

)
 
 [编辑]：  
 根据您的最新更新，我修改了服务器代码，以便在dataset更改时更新checkboxGrouptInput并为已检查的列呈现表。  
shinyServer( function(input, output, session) {

  dataset_list <- list( "rock" = rock,    
                        "pressure" = pressure,
                        "cars" = cars
  )

  observeEvent( input$n_select_input, {

    selected_dataset <- reactive({ 
      selected_list <- list()
      for( i in 1:input$n_select_input ){
        selected_list[[i]] <- dataset_list[[i]]
      }

      names(selected_list) <- names( dataset_list )[1:input$n_select_input]
      selected_list
    })


    colname_indata_list <- reactive({

      colname.indata.list <- list()
      for( set in names( selected_dataset() ) ){
        colname.indata.list[[set]] <- colnames( selected_dataset()[[set]] )
      }

      colname.indata.list
    })


    choice_cand <- reactive({ 
      names(selected_dataset()) })

    updateSelectInput( session,
                       "dataset",
                       choices = as.character( choice_cand() )
    )

    ######################################Start: Modified#############################

    observe({

      input$dataset  ##Added so that this observe is called when the input$dataset changes
      choices_cand <- reactive({ 

        colname_indata_list()[[input$dataset]] })

      updateCheckboxGroupInput( session, 
                                "column",
                                choices = as.character( choices_cand()) ,
                                selected = as.character( choices_cand())
      )

    })

    })

  ######################################End: Modified#############################


  datasetInput <- reactive({
    switch(input$dataset,
           "rock" = rock,
           "pressure" = pressure,
           "cars" = cars)
  })

  output$table <- renderTable({
    datasetInput()[,input$column]##only selected columns are displayed
  })


} ) 
 
 希望这可以帮助！ 

I have edited the code an its working now. You should put the two input in two different observe. 
Here is the server. R: 
server <- function(input, output, session){

  fund_group <- reactive({ # this is the list of fund group including fund name
    # for example,
    list("domestic" = c("a","b", "c"),  "global" = c( "aa", "bb", "cc"))
    # list name and fund name in the list are changable
  })

  observe({
    group_name <- reactive({ names(fund_group()) })
    updateSelectInput( session,
                       "select_group",
                       choices = group_name() )

  })

  observe({
    fund_list <- reactive({ fund_group()[[input$select_group]] })
    updateCheckboxGroupInput( session,
                              "fund_in_group",
                              choices = fund_list(),
                              selected = fund_list())
  })

}
 
Here is the ui.R: 
ui <- navbarPage( "narvarTitle",
            tabPanel( "tab panel",

                      fluidRow( column( 3, wellPanel( textOutput( "fixed_anual_date" ),
                                                      br(),
                                                      br(),
                                                      selectInput( "select_group",
                                                                   label = "Select group",
                                                                   choices = "" ),
                                                      br(),
                                                      checkboxGroupInput( "fund_in_group",
                                                                          label = "Select funds :",
                                                                          choices = "" ),
                                                      br()
                      ) )
                      ) )

)
 
[EDIT]: 
As per your latest update I have modified the server code so that checkboxGrouptInput is updated as dataset changes and also the table is rendered for the checked columns. 
shinyServer( function(input, output, session) {

  dataset_list <- list( "rock" = rock,    
                        "pressure" = pressure,
                        "cars" = cars
  )

  observeEvent( input$n_select_input, {

    selected_dataset <- reactive({ 
      selected_list <- list()
      for( i in 1:input$n_select_input ){
        selected_list[[i]] <- dataset_list[[i]]
      }

      names(selected_list) <- names( dataset_list )[1:input$n_select_input]
      selected_list
    })


    colname_indata_list <- reactive({

      colname.indata.list <- list()
      for( set in names( selected_dataset() ) ){
        colname.indata.list[[set]] <- colnames( selected_dataset()[[set]] )
      }

      colname.indata.list
    })


    choice_cand <- reactive({ 
      names(selected_dataset()) })

    updateSelectInput( session,
                       "dataset",
                       choices = as.character( choice_cand() )
    )

    ######################################Start: Modified#############################

    observe({

      input$dataset  ##Added so that this observe is called when the input$dataset changes
      choices_cand <- reactive({ 

        colname_indata_list()[[input$dataset]] })

      updateCheckboxGroupInput( session, 
                                "column",
                                choices = as.character( choices_cand()) ,
                                selected = as.character( choices_cand())
      )

    })

    })

  ######################################End: Modified#############################


  datasetInput <- reactive({
    switch(input$dataset,
           "rock" = rock,
           "pressure" = pressure,
           "cars" = cars)
  })

  output$table <- renderTable({
    datasetInput()[,input$column]##only selected columns are displayed
  })


} ) 
 
Hope this helps!

在语法定义中表示Sublime Text正则表达式中的“小于”符号(Represent “less-than” symbol in Sublime Text regex in syntax definition)

最满意答案

相关问答

闪亮 - 在Ui.R中通过警告检测输入的变化(Shiny - Detect a change in input with a warning in Ui.R)[2023-05-29]

R Shiny：for循环输出可用于许多render （）函数(R Shiny: The for loop output available for many render() functions)[2023-06-08]

基于用户输入闪亮R的动态图像输出(Dynamic image output based on user input shiny R)[2023-06-21]

R闪亮的动态制表符号码和输入生成(R Shiny dynamic tab number and input generation)[2022-12-10]

发送tabe作为Shiny的输出不会在Shiny UI中呈现(Sending tabe as output from Shiny does not render in Shiny UI)[2022-06-18]

R闪亮渲染UI不起作用(R shiny render UI does not work)[2022-11-05]

动态UI和访问数据（闪亮）(Dynamic UI & Accessing Data (Shiny))[2023-02-23]

R Shiny：includeMarkdown无法呈现htmlwidgets(R Shiny: includeMarkdown cannot render htmlwidgets)[2022-02-06]

如何在R中渲染不同的绘图输出类型取决于用户输入？(How to render different plot output types in R Shiny dependent of user input?)[2022-09-16]

动态呈现UI输入和输出R闪亮(Dynamic render UI input and output R shiny)[2021-11-06]

相关文章

最新问答

在语法定义中表示Sublime Text正则表达式中的“小于”符号(Represent “less-than” symbol in Sublime Text regex in syntax definition)

最满意答案

相关问答

闪亮 - 在Ui.R中通过警告检测输入的变化(Shiny - Detect a change in input with a warning in Ui.R)[2023-05-29]

R Shiny：for循环输出可用于许多render *（）函数(R Shiny: The for loop output available for many render*() functions)[2023-06-08]

基于用户输入闪亮R的动态图像输出(Dynamic image output based on user input shiny R)[2023-06-21]

R闪亮的动态制表符号码和输入生成(R Shiny dynamic tab number and input generation)[2022-12-10]

发送tabe作为Shiny的输出不会在Shiny UI中呈现(Sending tabe as output from Shiny does not render in Shiny UI)[2022-06-18]

R闪亮渲染UI不起作用(R shiny render UI does not work)[2022-11-05]

动态UI和访问数据（闪亮）(Dynamic UI & Accessing Data (Shiny))[2023-02-23]

R Shiny：includeMarkdown无法呈现htmlwidgets(R Shiny: includeMarkdown cannot render htmlwidgets)[2022-02-06]

如何在R中渲染不同的绘图输出类型取决于用户输入？(How to render different plot output types in R Shiny dependent of user input?)[2022-09-16]

动态呈现UI输入和输出R闪亮(Dynamic render UI input and output R shiny)[2021-11-06]

相关文章

最新问答

R Shiny：for循环输出可用于许多render （）函数(R Shiny: The for loop output available for many render() functions)[2023-06-08]