Question

我正在运行一个闪亮的应用程序，它基本上为“WordText”列中的单词搜索生成SQL代码。

虽然代码对于运行R 3.1.1的其他用户工作正常，但在我更新闪亮后它已经开始抛出错误。请注意，在更新闪亮之前我运行的是R 3.2.3并且闪亮的应用程序工作正常。

错误消息：

Warning: Error in FUN: argumemt is not a character vector
Stack trace (innermost first):
    74: lapply
    73: paste8
    72: HTML
    71: assign
    70: renderUI [U:\00 R\Shiny - Coursera\08 Tech05/server.R#174]
    69: func
    68: output$key1A_main
     1: runApp

这也是我第一次获得堆栈跟踪！不确定是什么触发了这些。

有问题的代码段：

########### GENERATING MULTIPLE OUTPUTS ################
#### MULTIPLE KEYWORD DEPENDENCIES !!!
lapply(1:5, function(x){

## Defining as many functions as the number of times displayed - Word Search Generator, (Complaints and Monthly Trends TAB )  X2 - SS + TD

output[[sprintf("key%dA_main",x)]] <- output[[sprintf("key%dA_main_SS_1",x)]] <- output[[sprintf("key%dA_main_SS_2",x)]]  <- 
output[[sprintf("key%dA_main_TD_1",x)]] <- output[[sprintf("key%dA_main_TD_2",x)]]  <- renderUI({

## Main Keyword Case Summary LIKE Statement
assign(sprintf("key%dA_start",x),
if(input[[sprintf("key%dA",x)]]=="") {""}
else {HTML(paste0("(",br(),"WordText like '%",input[[sprintf("key%dA",x)]],"%'",br(),em(sprintf("/* Main Keyword %d */",x)),br()))}
) 

## 'AND' and Starting Parenthesis if any dependent keywords   
assign(sprintf("key%dA_start_OR",x),
if(nchar(input[[sprintf("key%d_temp_1",x)]],allowNA = TRUE)==0) {" "} else {paste0("AND",br()," (",br())  }
)   


## 1st Dependent Keyword Case Summary LIKE Statment      
assign(sprintf("key%dA_first",x),
if(nchar(input[[sprintf("key%d_temp_1",x)]],allowNA = TRUE)==0) {" "} else {paste0("WordText like '%", input[[sprintf("key%d_temp_1",x)]], "%'", br())}
)   

## All other Dependent Keywords Case Summary LIKE Statments
assign(sprintf("key%dA_other",x),HTML(
lapply(2:10, function(i) {
xy <- input[[sprintf("key%d_temp_%d",x, i)]]
if (nchar(xy,allowNA = TRUE)>0) paste0("OR WordText like '%", xy, "%'", br())
else " "
})#END lapply
))      

## Ending Parenthesis if any dependent keywords   
assign(sprintf("key%dA_end_OR",x),
if(nchar(input[[sprintf("key%d_temp_1",x)]],allowNA = TRUE)==0) {" "} else {paste0(")",br(),em(sprintf("/* Dependent Keyword(s) for Keyword %d */",x)))  }
)      


## Ending Parenthesis for entire criteria (Main Keyword + dependent keywords)   
assign(sprintf("key%dA_end",x),
if(input[[sprintf("key%dA",x)]]=="") {" "} else {HTML(paste0(br(),")"))  }
)    

## Collating outputs
HTML(paste0(  get(sprintf("key%dA_start",x))
, get(sprintf("key%dA_start_OR",x))
, get(sprintf("key%dA_first",x))
, get(sprintf("key%dA_other",x))
, get(sprintf("key%dA_end_OR",x))
, get(sprintf("key%dA_end",x))) )


})#END renderUI 

})#END LAPPLY

会话信息如下：

sessionInfo()

R version 3.2.3 (2015-12-10)
Platform: i386-w64-mingw32/i386 (32-bit)
Running under: Windows >= 8 x64 (build 9200)

locale:
[1] LC_COLLATE=English_Australia.1252  LC_CTYPE=English_Australia.1252    LC_MONETARY=English_Australia.1252 LC_NUMERIC=C                       LC_TIME=English_Australia.1252    

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
[1] scales_0.3.0      ggplot2_2.0.0     RODBC_1.3-12      shinythemes_1.0.1 DT_0.1            shiny_0.13.0     

loaded via a namespace (and not attached):
 [1] Rcpp_0.12.3      digest_0.6.9     mime_0.4         plyr_1.8.3       grid_3.2.3       R6_2.1.1         jsonlite_0.9.19  xtable_1.8-0     gtable_0.1.2     magrittr_1.5     tools_3.2.3     
[12] htmlwidgets_0.5  munsell_0.4.2    httpuv_1.3.3     colorspace_1.2-6 htmltools_0.3

在更新闪亮

0 个答案: