请问这个相当具体的问题，但是我对Shiny还是很陌生，而且我度过了漫长的时光，试图弄清反应性元素如何从一个有光泽的应用程序的一部分流到另一个，以及它们如何连接到流变表。
我正在尝试使用该应用程序计算，显示和绘制2种不同的光源光谱。
此外，我正在尝试允许将“自定义”光谱粘贴到rhandsontable中并进行绘制。
此后，我将进行一些比较，但现在，我只是尝试构建和绘制它们。
这就是我所拥有的...
library(shiny)
library(rhandsontable)
library(colorSpec)
# Spectra Types
spectra.types = list(
"CIE D50" = 0,
"CIE D55" = 1,
"CIE D65" = 2,
"CIE D75" = 3,
"Custom CIE Daylight" = 4,
"CIE A" = 5,
"Custom Planckian (Blackbody)" = 6,
"Custom SPD" = 7)
ui <- fluidPage(
# Use ShinyJS
shinyjs::useShinyjs(),
# Application title
titlePanel("Spectra Calculator"),
br(),
# Sidebar
fluidRow(
column(12,
tabsetPanel(type = "tabs",
tabPanel("Reference Spectra", label = "Reference Spectra",
br(),
# Dropdown Menu
column(3,
selectInput("spec.type.ref", label = "Spectra Type",
choices = spectra.types,
selected = 0),
# Inputs for CCT and Wavelength
numericInput("cct.ref", label = "CCT", value = 5000),
numericInput("minWl.ref", label = "Minimum Wavelength", value = 300),
numericInput("maxWl.ref", label = "Maximum Wavelength", value = 830),
numericInput("incWl.ref", label = "Wavelength Increments", value = 2)
),
# Table
column(2,
rHandsontableOutput('spec.table.ref'),
br()
),
column(7,
plotOutput('plot.ref')
)
),
tabPanel("Test Spectra", label = "Test Spectra",
br(),
# Dropdown Menu
column(3,
selectInput("spec.type.test", label = "Spectra Type",
choices = spectra.types,
selected = 0),
# Inputs for CCT and Wavelength
numericInput("cct.test", label = "CCT", value = 5000),
numericInput("minWl.test", label = "Minimum Wavelength", value = 300),
numericInput("maxWl.test", label = "Maximum Wavelength", value = 830),
numericInput("incWl.test", label = "Wavelength Increments", value = 2),
actionButton("reset.test", "Reset Custom Test Data Table")
),
# Table
column(2,
rHandsontableOutput('spec.table.test'),
br()
),
column(7,
plotOutput('plot.test')
)
)
)
)
)
)
server <- function(input,output,session)({
# Show or Hide Widgets based on Dropdown Selection
observe({
if (input$spec.type.ref == 4 || input$spec.type.ref == 6 ) {
shinyjs::show("cct.ref")
} else {
shinyjs::hide("cct.ref")
}
})
observe({
if (input$spec.type.test == 4 || input$spec.type.test == 6 ) {
shinyjs::show("cct.test")
} else {
shinyjs::hide("cct.test")
}
})
observe({
if (input$spec.type.test == 7) {
shinyjs::show("reset.test")
} else {
shinyjs::hide("reset.test")
}
})
wl.ref <- reactiveValues(data = NULL)
wl.test <- reactiveValues(data = NULL)
spectra.values.ref <- reactiveValues(data = NULL)
spectra.values.test <- reactiveValues(data = NULL)
observe({
wl.ref$data <- seq(input$minWl.ref, input$maxWl.ref, input$incWl.ref)
})
observe({
wl.test$data <- seq(input$minWl.test, input$maxWl.test, input$incWl.test)
})
observe({
cct.ref <- get_choice_cct(input$spec.type.ref, input$cct.ref)
spectra.values.ref$data <- generate_spectra(input$spec.type.ref, wl.ref$data, cct.ref)
})
observe({
cct.test <- get_choice_cct(input$spec.type.test, input$cct.test)
spectra.values.test$data <- generate_spectra(input$spec.type.test, wl.test$data, cct.test)
})
observe({
if(!is.null(input$spec.table.test)) {
data <- hot_to_r(input$spec.table.test)
spectra.values.test$data <- colorSpec(data,
wl.test$data,
quantity = "auto",
organization = "auto")
}
})
observe({
if(!is.null(input$spec.table.ref)) {
data <- hot_to_r(input$spec.table.ref)
spectra.values.ref$data <- colorSpec(data,
wl.ref$data,
quantity = "auto",
organization = "auto")
}
})
# Subfunctions
get_choice_cct <- function(spec.choice, cct) {
switch(spec.choice,
"0" = {cct <- 5000},
"1" = {cct <- 5500},
"2" = {cct <- 6500},
"3" = {cct <- 7500},
"4" = {cct <- cct},
"5" = {cct <- 2848},
"6" = {cct <- cct},
"7" = {cct <- NULL})
return(cct)
}
generate_spectra <- function(spec.choice, wl, cct) {
# Generate spectr depending on choice
# For choices 0 through 4
if (spec.choice >= 0 && spec.choice <= 4) {
if (cct < 4000) {
stop("D-Illuminants are not defined for CCT <4000K")
}
if (cct > 25000) {
stop("D-Illuminants are not defined for CCT >25000K")
}
# Specify c2 correction factor
c2_correction <- 14388 / 14380
# Generate daylight spectra
if (spec.choice == 4) {
# For custom spectra
spectra <- daylightSpectra(cct,
wavelength = wl,
roundMs = TRUE )
} else {
# For a CIE canonical daylight
spectra <- daylightSpectra(cct * c2_correction,
wavelength = wl,
roundMs = TRUE )
}
} else if (spec.choice == 5) {
# For Iluminant A
spectra = planckSpectra(cct,
wavelength = wl,
c2=1.435e7)
} else if (spec.choice == 6) {
# For custom planckian spectra
spectra <- planckSpectra(cct,
normalize=TRUE,
wavelength = wl)
} else if (spec.choice == 7) {
# For custom spectra
spectra <- illuminantE( energy = 0,
wavelength = wl)
organization(spectra) <- 'matrix'
}
return(spectra)
}
# Output Functions
output$plot.test <- renderPlot({
plot(spectra.values.test$data,
color='black',
main='Test Spectra')
})
output$plot.ref <- renderPlot({
plot(spectra.values.ref$data,
color='black',
main='Reference Spectra')
})
output$spec.table.test <- renderRHandsontable({
rhandsontable(spectra.values.test$data,
colHeaders='Relative Spectral Power',
rowHeaders=wl.test$data,
digits = 10) %>%
hot_col(1, format = '0.0000000000')
})
output$spec.table.ref <- renderRHandsontable({
rhandsontable(spectra.values.ref$data,
colHeaders='Relative Spectral Power',
rowHeaders=wl.ref$data,
digits = 10) %>%
hot_col(1, format = '0.0000000000')
})
})
shinyApp(ui = ui, server = server)
我目前遇到的问题是
1）当我将表格数据强制放入colorSpec对象中并尝试更改波长的最小值，最大值或增量时，由于用于构建{{1} }对象的长度不同。这对我来说没有意义，因为我有colorSpec个元素检查这些项目是否有更改。此外，如果我不尝试构建observe对象，它也会起作用，但这会导致绘图方面的其他问题。
2）我的colorSpec似乎仅在表中键入的值为整数时才起作用。
任何想法都将不胜感激。