R shiny中正则表达式不起作用

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

最近在研究路径分析，做了一个交互界面，但是需要通过正则来选择相应的行，请教一下应该怎么在shiny中实现。以下是本人代码，但是正则表达式是个变量，不加引号报错，加了引号会按照字符串处理，求教

library(shiny)
library(sunburstR)
library(dplyr)

library(sunburstR)
sequence <- read.csv(
  system.file('examples/visit-sequences.csv',
              package = 'sunburstR'),
  header = F,stringsAsFactors = F)

ui<-fluidPage(
  sidebarLayout(
    sidebarPanel(
      sliderInput('fre',
                  'Number of fre',
                  100,10000,1000),
      selectInput('begin','begin action',
                  choices = c('account','home','product',
                              'end','search','other')),
      selectInput('end','end action',
                  choices = c('account','home','product',
                              'end','search','other')),
      actionButton('update','Update View')
    ),

    mainPanel(
      sunburstOutput("sunburst"),
      textOutput("selection")
    )
  )
)


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

  output$sunburst <- renderSunburst({
    sequence = sequence[sequence$V2 > input$fre,]
     res = str_extract(sequence[,1],input$begin.*input$end)
     sequence$V1 = res
     sequence = sequence[-which(is.na(sequence)),]
    add_shiny(sunburst(sequence,count = TRUE))
  })

  selection <- reactive({
    input$sunburst_mouseover
  })

  output$selection <- renderText(selection())
}

shinyApp(ui = ui, server = server)

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏1 回帖

关键词：Shiny 正则表达式 Shin 表达式 sequence shiny