如何根据单选按钮（闪亮的应用程序）上选择的内容更改函数的值&

Question

如果用户选择英语，我想将函数 fuz

我尝试使用反应式表达，但它给了我一个错误：“不允许从闪亮输出对象读取对象。”

谢谢

P.S.：我仍在尝试获取“fuzzy_inference”函数的输入值，也许有人可以提供帮助。

图书馆（闪亮） 图书馆（shinyjs） 图书馆（套） 库（数据集）

ui <- fluidPage(numericInput(inputId = "one", label="Type number",1, min=1, max=120),
numericInput(inputId = "two", label="Type number",1, min = 1, max=120),
        numericInput(inputId = "three", label="Type number",1, min = 1, max=120),
        numericInput(inputId = "four", label="Type number",1, min = 1, max=120),
        textOutput("sub"), br(),
        actionButton("act", "Show"),

        br(),

        radioButtons(inputId = "RB",label="Choose", 
                     c("English",
                       "French",
                       "German",
                       "Spanish",
                       "None")),
        textOutput("sw"),
        textOutput("text")


)
server <- function(input, output){
output$text <- renderText({
RB <- switch(input$RB,
         English= "You schould learn German.",
         French = "You schould learn Spanish.",
         German = "You schould learn English.",
         Spanish = "You schould learn Portuguese.",
         None ="You schould learn Polish.")
})
variables <- set(wo = fuzzy_partition(varnames = c(notMany2 = 15, enough2 = 25, many2 = 35),FUN = fuzzy_cone, radius = 10),
           top = fuzzy_partition(varnames = c(notMany3 = 20, enough3 =   50, many3 = 100),FUN = fuzzy_cone, radius = 25),
           c = fuzzy_partition(varnames = c(k4 = 52, k3 = 42, k2 = 32,k1 = 22), sd = 3)
)
rules <- set (fuzzy_rule(wo %is% notMany2 && top %is% notMany3 
                   || wo %is% notMany2 && top %is% notMany3 
                   || wo %is% notMany2 && top %is% notMany3 
                   , c %is% k1),
        fuzzy_rule( wo %is% notMany2 && top %is% enough3 
                    || wo %is% notMany2 && top %is% many3,c %is% k2))
system <- fuzzy_system(variables,rules)

fi <- fuzzy_inference(system, list(wo = 20, top= 10))

  fuz <- gset_defuzzify(fi, 'centroid')

output$sub <- renderText({fuz})
z <- reactive(if(output$sub=="You schould learn German") (fuz*2))
output$sw <- renderText({z()})


}


shinyApp(ui = ui, server = server)

Answer 1

fuz 对象仍然存在，将 output$sub 替换为 fuz 是否符合您的预期？

z <- reactive(if(fuz=="You schould learn German") (fuz*2))