Question

我计划在RShiny仪表板上有几个verbatimTextOutputs。因此，为了帮助用户，我想通过在其上方添加标题/名称来使其与众不同。

但是，verbatimTextOutputs没有这样的参数，所以我看了一下我不太熟悉的CSS样式，因此在这里我可能会犯一个错误，但是在我看来，我无法使用CSS。我可以做很多其他花哨的事情，例如字体类型，颜色等，但这并不能真正解决我的问题。然后我读到我可能需要修改JavaScript以便将这些标题添加到我的输出上方。

library(shiny)

ui <- fluidPage(
  actionButton("btn", "Press me"),

  verbatimTextOutput("dem"),
  tags$head(tags$style(HTML("
                            #dem { 
                            title: somefancyname;
                            width: 100px;
                            height: 45px;
                            position: relative;
                            }
                            ")))
)

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

  observeEvent(input$btn, {
    output$dem <- renderText(1)
  })


}

shinyApp(ui, server)

我走对了吗？有人可以帮我解决我想达到的目的是否可行，我该怎么办？预先谢谢你。

Answer 1

您不需要样式标签，只需添加带有import { Injectable } from '@angular/core'; import { HttpInterceptor, HttpRequest, HttpHandler, HttpEvent } from '@angular/common/http'; import { FacadeService } from './facade.service'; import { Observable } from 'rxjs'; @Injectable({ providedIn: 'root' }) export class HttpInterceptorService implements HttpInterceptor { constructor(private facadeService: FacadeService) { } intercept(req: HttpRequest<any>, next: HttpHandler): Observable<HttpEvent<any>> { if (req.url.includes('localhost:3000') && !req.url.endsWith('token')) { this.facadeService.retrieveValidToken() .subscribe( (res) => { const clone = req.clone({ setHeaders: { Authorization: `Bearer ${res}` } }); return next.handle(clone); }, (err) => { const clone = req.clone({ setHeaders: { Authorization: `Bearer ` } }); return next.handle(clone); } ); } else { return next.handle(req); } } }或其他标题标签的标题即可...请参见h2

?tags

如何在RShiny仪表板上为verbatimTextOutput创建标题？

1 个答案: