闪亮和R：如何添加主题并自定义错误消息-IT业界-PHP中文网

首页

科技周边

IT业界

闪亮和R：如何添加主题并自定义错误消息

Lisa Kudrow

Feb 18, 2025 pm 12:35 PM

闪亮和R：如何添加主题并自定义错误消息

钥匙要点

> Shiny提供了一个用于数据分析和模型构建的用户友好界面，即使是针对具有非编码背景的用户。它允许创建Interactive Web应用程序，而无需进行广泛的编码。

> Shiny的重点是为数据分析创建一种用户友好和直观的体验。与单独使用R相比，它允许更大的自定义和交互性，并且可以通过正确指定特定程序的参数来最大程度地降低用户输入错误的风险。

> >在我关于使用R和HTML使用Shiny的文章中，我说明了如何创建交互式Web应用程序以进行分析而无需直接操纵代码。在本文中，我将使用一个略有不同的模型来说明如何以更直观的方式定制闪亮的环境以与最终用户合作。本质上，本文的目的是说明用户如何：

>通过链接UI和服务器端闪亮和R：如何添加主题并自定义错误消息

来构建应用程序

>如何自定义闪亮主题库中可用的主题

实施错误消息，以便向最终用户提供有关如何使用特定程序

这个固有的函数使光泽与使用R代码作为独立的功能具有显着优势。传统上，为了分析特定变量中的更改，必须直接操纵代码（或代码读取的数据），这最终可能会变得非常效率低下。但是，通过允许用户以高度直观的方式操纵变量，并立即反映变化来大大加快此过程。
>但是，闪亮的全部目的是使R脚本尽可能互动。在这方面，用户将希望能够将功能添加到远远超出反应性的程序中。我将在本教程中讨论的两个这样的方面是：
>
1. 的外观
在我们原始程序的UI中，我们没有指定一个主题，因此最终获得了我们输出的基本（默认的bootstrap）视图：
>

>定义Shinyui（fluidPage（…））函数时，我们没有指定主题。在这种情况下，我们将指定从闪亮的主题包中可用的几个主题。
> 在指定Shinyui（fluidPage（…））之后，我们还指定了我们的主题：>

>从上面的角度来看，选择机器人主题为我们的Web应用程序提供了黑暗的背景。作为另一个例子，现在让我们选择Spacelab主题，看看我们想到的内容：
>
```
shinyUI(fluidPage(theme = shinytheme("cyborg")
```
这些主题根据闪亮代码中的其他属性（例如其他按钮，选项卡等）展示了更多的自定义级别。请随时尝试在Rstudio Github帐户中尝试其他主题，并查看您的想法！

validate（）函数
在使用闪亮代码时，validate函数是必不可少的工具。本质上，验证允许在操纵闪亮程序的某个部分时触发警报消息。> 在此特定实例中，我讨论了如何在程序中操纵滑块时如何使用验证和需要函数来触发警报消息。
在上次，该程序本身就其功能而言是非常基本的。从本质上讲，我们的闪亮程序在1到100之间的X轴上产生价值，具体取决于滑块的选择。然后，每当计算出的斜率低于5以下时，即以29或更高的速度，我们将使用相应的Y值来产生错误消息。请注意，该程序不是直接计算斜率，而是在此实例中使用29的值作为基于手动计算的斜率的截止点。在用户界面中，我们在Shinyui下指定验证触发器，如下所示：

在服务器下，我们在输入输出函数下指定验证和需要命令：
```
shinyUI(fluidPage(theme = shinytheme("cyborg")
```
完整的程序代码
```
shinyUI(fluidPage(theme = shinytheme("spacelab"),
tags$head(
  tags$style(HTML("
    .shiny-output-error-validation {
    color: red;
    }
    "))
),
```
UI和服务器代码整体显示在下面：
>
ui

>服务器
```
function(input, output) {
  output$algebra 
<h3>作为快速回顾，我们通过以下方式运行该程序
</h3>
<pre class="brush:php;toolbar:false">#Load libraries
library(shiny)
library(shinythemes)


#Define Shiny theme and specify shiny-output-error-validation
shinyUI(fluidPage(theme = shinytheme("spacelab"),


tags$head(
  tags$style(HTML("
    .shiny-output-error-validation {
    color: red;
    }
    "))
),


sidebarLayout(
  sidebarPanel(
    sliderInput("lambda",
      "Number of data points:",
      min = 1,
      max = 100,
      value = 1)
),


mainPanel(
  h3("Slope of a line", style = "font-family: 'Jura'; color: blue; font-size: 32px;"),
  HTML("<p>Excluding slope below 5 where y = 2x + 3"),
  plotOutput("algebra")
)
)
))
</p>
```
>打开R Studio并选择新图标→闪亮的Web应用
>我们看到我们可以选择单个文件（使用UI.R和Server.r）或一个多个文件（其中ui.r和server.r在单独的脚本中）。我们将在此处使用多个文件。
现在，我们将上述UI和服务器代码粘贴到它们的各个部分中，并通过选择运行应用程序来运行程序。
>我们看到，根据我们如何操纵滑块的方式，我们的线图在X轴上的数据点增长。但是，您会注意到，一旦滑块移动到29或更高的值，则显示错误消息：“设置为29或更高的值将产生低于5的斜率。请设置一个低于29的值”。 >

当开发人员希望将外部用户引导使用此类程序时，显示此类错误消息的显示可能非常有用。例如，如果不显示错误消息，则用户可以自由地进行限制，以对可能不一定合适的程序进行输入。通过这种方式，开发人员可以为外部用户提供进一步的保障措施，以防止外部用户无意中的输入，而仅在R代码中进行此操作会使输入对操作开放。
>
例如，闪亮的网站本身给出了一个示例，说明了如何将验证函数应用于列表。 UI和服务器会产生直方图作为输出，但是当在列表中选择特定数据集时，该程序会产生错误消息。通过这种方式，Validate命令确实可以做到这一点 - 验证特定输入，而需求函数使我们可以通过自定义错误消息来个性化相同的内容 - 即输入$ lambda ，虽然我们只指定了一个错误消息，但我们可能会指定多个。例如，现在假设当滑块高于35：

>的值时，我们要显示一条其他错误消息。

shinyUI(fluidPage(theme = shinytheme("cyborg")

在服务器代码中使用附加需求功能，将滑块操作至35以上的值，这意味着我们现在显示其他错误消息：“您的滑块现在的值大于35！”

闪亮和R：如何添加主题并自定义错误消息

结论

在本文中，我们看到了如何使用闪亮的主题来操纵闪亮的应用程序的设计，并学会了如何将过滤器应用于代码的参数并在某些条件被违反时显示错误消息。

>最终，Shiny的重点在于，与单独使用R相比，在进行分析方面具有更高的用户友好和直观的体验，并且还可以通过正确指定特定程序的参数来最大程度地减少用户输入错误的风险。。

> Shiny和R：主题和自定义错误消息的常见问题（FAQ）

>如何在r？

中添加一个主题，将主题添加到r中的闪亮应用程序是一个简单的过程。首先，您需要安装和加载ShinyThemes软件包。您可以通过在r控制台中运行以下命令来执行此操作：install.packages（“ ShinyThemes”）和Library（ShinyThemes）。加载软件包后，您可以通过在FluidPage或Navbarpage函数中包括主题参数来添加主题。例如，fluidPage（主题= Shinytheme（“ Cerulean”））。这将把“ Cerulean”主题应用于您的闪亮应用程序。>如何更改我的Shiny App的配色方案？可以使用CSS来完成闪亮的应用程序。您可以通过在UI函数中使用IncludeCSS函数将CSS文件包含在您的应用中。例如，包括includecss（“ styles.css”）。在CSS文件中，您可以为应用程序的不同元素定义颜色。例如，要将应用程序的背景颜色更改为蓝色，您可以在CSS文件中包含以下内容：Body {Background-Color：blue;}。

>我可以在我的闪亮应用程序中使用自定义字体吗？这可以通过在您的应用程序中包含CSS文件并使用 @font-FACE规则来定义您的自定义字体来完成。例如，如果您有一个称为“ myfont.woff”的自定义字体文件，则可以在CSS文件中包含以下内容： @font-face {font-family：“ myfont”; src：url（“ myfont.woff”）;}。然后，您可以通过将字体家庭属性设置为“ myFont”来使用CSS中的字体。

>如何在我的Shiny应用程序中添加自定义徽标？可以通过使用Navbarpage功能并将徽标作为参数来完成闪亮的应用程序。例如，navbarpage（title =“我的应用程序”，windowtitle =“我的app”，taglist（tags $ img（src =“ mylogo.png”，height =“ 50px”，width =“ 50px”））。这将在您的应用程序的Navbar中显示您的徽标。