https://wiki.taichimd.us/index.php?action=history&feed=atom&title=File%3ARainbow_default.png
File:Rainbow default.png - Revision history
2026-04-09T09:32:21Z
Revision history for this page on the wiki
MediaWiki 1.43.6
https://wiki.taichimd.us/index.php?title=File:Rainbow_default.png&diff=38981&oldid=prev
Brb: <syntaxhighlight lang='r'>
library(shiny)
# Define the UI
ui <- fluidPage(
titlePanel("Rainbow Color Palette"),
sidebarLayout(
sidebarPanel(
sliderInput("s_value", "Saturation (s):", min = 0, max = 1, value = 1, step = 0.01),
sliderInput("v_value", "Value (v):", min = 0, max = 1, value = 1, step = 0.01)
),
mainPanel(
plotOutput("rainbow_plot")
)
)
)
# Define the server
server <- function(input, output) {
output$rainbow_plot <- renderPlot({
s <-...
2024-03-12T12:52:48Z
<p><syntaxhighlight lang='r'> library(shiny) # Define the UI ui <- fluidPage( titlePanel("Rainbow Color Palette"), sidebarLayout( sidebarPanel( sliderInput("s_value", "Saturation (s):", min = 0, max = 1, value = 1, step = 0.01), sliderInput("v_value", "Value (v):", min = 0, max = 1, value = 1, step = 0.01) ), mainPanel( plotOutput("rainbow_plot") ) ) ) # Define the server server <- function(input, output) { output$rainbow_plot <- renderPlot({ s <-...</p>
<p><b>New page</b></p><div>== Summary ==<br />
<syntaxhighlight lang='r'><br />
library(shiny)<br />
<br />
# Define the UI<br />
ui <- fluidPage(<br />
titlePanel("Rainbow Color Palette"),<br />
sidebarLayout(<br />
sidebarPanel(<br />
sliderInput("s_value", "Saturation (s):", min = 0, max = 1, value = 1, step = 0.01),<br />
sliderInput("v_value", "Value (v):", min = 0, max = 1, value = 1, step = 0.01)<br />
),<br />
mainPanel(<br />
plotOutput("rainbow_plot")<br />
)<br />
)<br />
)<br />
<br />
# Define the server<br />
server <- function(input, output) {<br />
output$rainbow_plot <- renderPlot({<br />
s <- input$s_value<br />
v <- input$v_value<br />
rainbow_colors <- rainbow(12, s = s, v = v)<br />
<br />
# Plot the colors<br />
barplot(rep(1, 12), col = rainbow_colors, border = NA, space = 0)<br />
})<br />
}<br />
<br />
# Run the Shiny app<br />
shinyApp(ui = ui, server = server)<br />
</syntaxhighlight></div>
Brb