小编Piy*_*ush的帖子

我使用下面的代码在server.R主面板中显示文本.这正是它应该工作的方式.

output$text1 <- renderText({
  if(input$ag == 0) return(NULL)
  return('First 20 rows for requested AG')
})

有没有办法改变文字的字体和颜色？

Shiny 文档提到selectInput():

selected默认情况下应选择的导航项的值(如果没有提供,则为标题).如果为NULL,则将选择第一个导航.

如果默认情况下我不想从选择列表中选择任何值,该怎么办？

实际上我的选择值默认被选中,应用程序的其余部分自动执行.但我最初不想选择任何价值.我应该为这个selected论点selectInput()提供什么？

实际上,我不希望自动选择任何内容.我使用下面的代码但仍然从列表中选择第一个可用值.我希望默认情况下没有选择,因此用户可以选择任何选项.

output$Choose_App <- renderUI({
selectInput("app",
            "Select App:",
            choices = as.character(mtrl_name),
            selected = NULL ,
            multiple = FALSE
           )
        })

通过文档 我注意到,只有选择时,选择才可以为空multiple=TRUE.它是否正确？

当我改为multiple=TRUE,那么它默认没有被选中,这就是我想要的.但不幸的是,在进行任何选择之前,我也收到以下错误消息:

ERROR: bad 'file' argument 

如果我做错了什么,有人知道吗？但如果我选择此文件,则错误消失.

我正在使用以下代码:

# server.R
setwd("/opt/shiny-server/samples/sample-apps/P-Dict_RDS2")
mtrl_name <- try(system("ls | grep -i .rds", intern = TRUE))

shinyServer(function(input, output) {

# First UI input (Service column) filter clientData 
output$Choose_Molecule <- renderUI({
selectInput("molecule",
            "Select Molecule:",
            choices = as.character(mtrl_name),
            selected …

是否可以在Shiny app(主面板)中显示html文件？此HTML由SAS代码创建,但我想在Shiny App中显示.这不是一个小图像.这是HTML文件中的表格输出.

Html文件包含tabele,如下所示:

任何帮助将受到高度赞赏.

谢谢!Tinku

@MrFlick - 感谢您的电子邮件.fluidPage无法正常工作.它给出了以下错误消息:

ERROR: could not find function "fluidPage"

titlePanel也无法正常工作.

注意 - 当我使用pageWithSidebar instaed的fluidPage和headerPanel而不是titlePanel时,它的工作正常.