如何mouseover text在R闪亮数据表显示中为列名创建.我正在尝试为用户提供一些文本来理解列名称.我也检查了DT包,我找不到解决方案.我可以为列名创建标签,并在用户选中一个框时显示所有这些标签,这需要大量的空间,我不希望这样.有小费吗？
对许多人来说,这可能是最简单的事情,但我正在努力解决这个问题.我想用html标签"hr"绘制一条颜色的线条这是我迄今为止在ui.R文件中尝试过的:
HTML("<hr color='purple' >")
HTML('<hr color="purple" >')
hr( color="purple" )
他们都没有工作 - 有什么建议吗？
我有一个闪亮的 R 应用程序，其中使用“renderTable”函数来渲染动态创建的表。该表在一种情况下可以具有 3 个字符列和 4 个数字列，在另一种情况下可以具有 2 个字符列和 2 个数字列。ui.R 的 renderTable 代码是：
output$table1 <- renderTable({
d1<-data()
print(format(d1, big.mark=",", scientific=FALSE,justify="right", nsmall=0))
})
这适用于除 justify 之外指定的所有格式选项。所有数字列在输出中均左对齐。
谁能解释一下为什么？
我有一个闪亮的应用程序,其中server.R如下所示:
shinyServer(function(input, output,session) {
temp<-reactive({
obj1<-read.csv(.....)
v1<-c("obj2")
lst<-lapply(v1,read.csv(....)
list2env(lst)
...
})
我正在调用的反应函数中直接创建一个对象,obj1并obj2使用list2env 创建.双方obj1并obj2没有在相同的环境.当我进入被动功能时,我所处的环境是什么？此外,我不想使用.GlobalEnvin,list2env因为它会使所有用户会话中的此对象可用.如何在与之相同的环境中进行list2env创建？obj2obj1
我有R闪亮的仪表板应用程序,我在其中呈现R Markdown文档(它使用knitr :: kable函数打印数据表)并在server.R中使用includeHTML包含生成的应用程序,并使用ui.R中的uiOutput渲染它
最近升级的包装到(knitr:1.12.3;闪亮的仪表板:0.5.1)
现在,shinydashboard输出中的渲染表没有网格线,我不确定是什么导致它 - 任何想法？
以下是来自server.R的代码的相关部分:
output$sae_text<-renderUI({
req(input$sae_userids)
render('myrmd.Rmd',output_dir=".",output_file="temp.html",params=list(subject=input$sae_userids))
includeHTML("temp.html")
})
以下是myrmd.Rmd代码的相关部分:
```{r, results='asis',echo=FALSE}
knitr::kable(ex4)}
```
以下是ui.R代码的相关部分:
tabItem(tabName="SAE",
fluidRow(box(width=12,uiOutput("sae_text"))),
),
我有一个包含许多变量的大数据集,看起来与此类似:
> data.table(a=letters[1:10],b=LETTERS[1:10],ID=c(1,1,1,2,2,2,2,3,3,3))
a b ID
1: a A 1
2: b B 1
3: c C 1
4: d D 2
5: e E 2
6: f F 2
7: g G 2
8: h H 3
9: i I 3
10: j J 3
我想连接(在它们之间使用新的行字符)所有列值除ID以外的每个ID值,因此结果应如下所示:
a b ID
1: a A 1
b B
c C
2: d D 2
e E
f F
g G
3: h H 3
i I
j J
我找到了一个链接R Dataframe:聚合列中的字符串,跨行,按组讨论如何为一列执行此操作,如何为.SD中的所有列扩展此字符串？ …
这可能非常简单,但我找不到正确的语法,尽管搜索帖子:
我想在我闪亮的网页上创建一个超链接,点击它时应该从应用程序所在的同一位置打开一个文件.
这是一个示例代码:
library(shiny);
shinyApp( ui = fluidPage(a("test_hyperlink",href="./readme.txt")),
server = function(input, output) { } )
readme.txt与此应用程序位于同一位置.
我尝试了以下但没有成功:
file://readme.txt # relative path
file:///srv/shiny-server/myApp/readme.txt # absolute path
href://./readme.txt # relative path
href:///srv/shiny-server/myApp/readme.txt # absolute path
有帮助吗？
我正在尝试a<-get(obj1,envir=parent.environment())从被调用的环境中访问驻留在调用环境中的对象(),但myf我无法使其正常工作.我得到的错误是Object obj1 not found.我parent.frame()也试过了.有任何想法吗？
library(shiny)
shinyApp(
ui = textOutput("test1"),
server = function(input, output) {
myf <- function(x) {
a <- get(obj1, envir = parent.environment())
return(paste0(x,a))
}
output$test1 <- renderText({
obj1 <- "testing"
a <- lapply(c("a","b","c"), myf)
return(paste(unlist(a), collapse = ","))
})
}
)
注意:我不想obj1<<-创建在全局环境中创建的obj1 ,并且可用于所有会话
我正在尝试menuItem动态生成多个s，可能很简单，但我没有得到正确的想法。
library(shiny)
library(shinydashboard)
port_tables<-c("tab1","tab2","tab3","tab4") # These are from a DB connection in the original code
function(input, output) {
output$smenu1 <- renderMenu({
sidebarMenu( id = "tabs",
h4("Tables",style="color:yellow;margin-left:20px;"),
paste("menuItem(\"",port_tables,"\",tabName=\"",port_tables,"\",icon=icon('th'))",collapse=",")
)
})
)
paste函数中的菜单项无法解析（我在侧边栏上得到了粘贴函数的结果）。我试过eval，，eval(parse(paste(...)))都没有工作 - 我错过了什么？
我找不到一个如何做到这一点的例子.我正在尝试使用geom_line但是避开重叠元素,但它似乎不起作用.
这是我的数据:
> sa
id ep type grp variable value
1: 1 1 typ1 1 st 1
2: 1 2 typ1 2 st 60
3: 1 3 typ1 3 st 120
4: 1 1 typ2 4 st 20
5: 1 2 typ2 5 st 60
6: 2 1 typ1 6 st 1
7: 2 2 typ1 7 st 80
8: 2 3 typ1 8 st 170
9: 2 1 typ2 9 st 10
10: 2 2 typ2 10 …我有一个数据表，其中的列a是一个字符字段。我需要在列中添加一些字符串以使其具有不同的颜色（只是开始，我最终需要搜索并替换具有不同颜色的多个字符串）。我正在尝试通过以下方式进行操作，但未成功。
在下面，我试图将html标记放在列值中，但是我不确定在显示数据表时如何使浏览器将它们视为html标记。有任何想法吗？
library(shiny)
library(DT)
x<-data.table(a=c("srinivas asfsis asdfsadf","vassri asdf asdfasdf","csdasdsriasfasf"))
x$a<-as.data.table(sapply(x$a,function(x)gsub("sri",'<strong style="color:red">sri</strong>',x)))
shinyApp( ui = dataTableOutput("table1"),
server = function(input, output) {
output$table1<-renderDataTable({ datatable(x) })
}
)