server

shinyServer(
    function(input, output) {

        output1 <- "Stupnice obsahuje noty:"
            note <- 1
            scale <- 1

            for (i in 1:8) {




            index <- ((note + scales[scale,i] -2) %% 12) +1
            output1 <- c(output1, notes[index])
        }




        output$text1 <- renderText({

            paste(output1)
        })
    }
)