Guane.dev/server.R at master · alarconvv/Guane.dev · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
# Guane: a shiny app for phylogenetic comparative methods
# Author: Viviana Romero Alarcon
# Creation date: July 7 2023
# Server File


shinyServer(function(input, output,session) {

  ######################################################################
  # Data panel: Ancestral State Reconstruction: Discrete Characters    #
  ######################################################################

  source("Server/Ancestral_State_reconstruction/Dicrete_Character/ANC_Data.R", local = T)

  source("Server/Ancestral_State_reconstruction/Dicrete_Character/ANC_ML.R", local = T)

  ######################################################################
  # Data panel: Ancestral State Reconstruction: Discrete Characters    #
  ######################################################################


  # R code
  output$knitDoc <- renderUI({
    input$eval
    HTML(knitr::knit2html(text = isolate(input$rmd), quiet = TRUE,force_v1 = T))
  })


#Finish server
})