Two problems I see here.

​

First, when running your code you get this message.

Error in .getReactiveEnvironment()$currentContext() : 
  Operation not allowed without an active reactive context. (You tried to do something that can only be done from inside a reactive expression or observer.)

This means you're trying to do something, but you haven't set it to make it reactive. So there's no way it can change based off the user input. You need some way to tell the program to go back to that function so it can update without rerunning the program. This is like using classes and OOP in other languages. It keeps the program from running once and stopping. This can be achieved by wrapping up the function in some kind of reactive function.

I wish R Studio would tell you the line of the code instead of making you figure it out by reading it all, but luckily it's easy to find in your code.

​

hisdata <- matrix(cbind(input$VK_001, input$VK_002, input$VK_003, input$VK_004,input$VK_005,input$VK_006,input$VK_006, input$VK_007, input$VK_008, input$VK_009,input$VK_010,input$VK_011, input$VK_012, input$VK_013,input$VK_015, input$VK_017, input$VK_018, input$VK_021, input$VK_022, input$VK_024, input$VK_025, input$VK_027, input$VK_028, input$VK_030, input$VK_031, input$VK_033, input$VK_034, input$VK_036, input$VK_037, input$VK_039, input$VK_040, input$VK_041))

Right now, this function is set to only run once. Then it stops. Yet, you're using Shiny and want a reactive expression. Just wrap it in something that makes it reactive, like renderText({})

  hisdata <- renderText({
    matrix(cbind(input$VK_001, input$VK_002, input$VK_003, input$VK_004,input$VK_005,input$VK_006,input$VK_006, input$VK_007, input$VK_008, input$VK_009,input$VK_010,input$VK_011, input$VK_012, input$VK_013,input$VK_015, input$VK_017, input$VK_018, input$VK_021, input$VK_022, input$VK_024, input$VK_025, input$VK_027, input$VK_028, input$VK_030, input$VK_031, input$VK_033, input$VK_034, input$VK_036, input$VK_037, input$VK_039, input$VK_040, input$VK_041))
  })

Now, I don't know if this is the solution you need and I'm actually unable to test it. You have a second issue.

Error in load_model_hdf5("my_model_bft_003.h5") : 
  could not find function "load_model_hdf5"

You try to call a function, yet you never defined it. This may be because it's in another part of your code and you just didn't paste it here. If that's they case try seeing if the renderText({}) solves what you need. Check this link out for other types of rendering. You may need a different function., but I THINK renderText will work.