如何解决R中的自定义字符串
有没有一种方法可以自定义R中的单词?
例如,我有一个数据帧df
,如下所示
col1 col2
sdf 1 Vin
fdf 3 Oiu
sadf 10 Lop
sdf 2 Koi
当我把他放进去
selectInput("id","Label",choice = df$col2)
我得到1 Vin,10 Lop,2 Koi,3 Oiu
的订单。但是我需要1 Vin,3 Oiu,10 Lop
。
以上结果可能吗?
解决方法
您可以使用gtools
中的library(shiny)
library(gtools)
ui <- fluidPage(
selectInput("id","Label",choice = mixedsort(as.character(df$col2)))
)
server <- function(input,output){}
shinyApp(ui,server)
。
double number = 10 * 10/11;
System.out.println("Number->" + number);
,
将此selectizeInput
选项与score
一起使用:
library(shiny)
score <- 'function(search_string) {
return function(element) {
return new Sifter([element]).search(search_string,{
fields : ["label"]
}).items.length;
};
}'
ui <- fluidPage(
selectizeInput(
"id","label",list("1 zzz","2 zzz","10 zzz"),options = list(
score = I(score)
)
)
)
server <- function(input,output){}
shinyApp(ui,server)
这将保持您提供的选择的顺序(因此您必须在数据框中订购它们)。
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。