fix #13

AparicioJohan · Mar 28, 2024 · 03e7fd6 · 03e7fd6
1 parent 54b3d69
commit 03e7fd6
Showing 6 changed files with 9 additions and 7 deletions.
diff --git a/R/SpATSplus.R b/R/SpATSplus.R
@@ -835,7 +835,7 @@ varComp <- function(object, which = "variances") {
 
 # SpATS coefficients
 
-coef.SpATS <- function(model) {
+coef_SpATS <- function(model) {
   # coefficients
   coef_spats <- model$coeff
   coef_random <- attr(coef_spats, "random")

diff --git a/R/mod_GBLUP.R b/R/mod_GBLUP.R
@@ -188,7 +188,6 @@ mod_GBLUP_ui <- function(id) {
             id = ns("results"),
             bs4TabCard(
               width = 12,
-              id = "tabcard",
               maximizable = T,
               closable = F,
               status = "success",

diff --git a/R/mod_distribution.R b/R/mod_distribution.R
@@ -79,8 +79,9 @@ mod_distribution_ui <- function(id) {
             maximizable = T,
             solidHeader = FALSE,
             closable = F,
-            status = "success", side = "left", type = "tabs",
-            id = "tabcard",
+            status = "success",
+            side = "left", 
+            type = "tabs",
             tabPanel(
               title = "Histogram",
               icon = icon("chart-bar"),

diff --git a/R/mod_info_spats.R b/R/mod_info_spats.R
@@ -18,7 +18,8 @@ mod_info_spats_ui <- function(id) {
     ),
     fluidRow(
       bs4TabCard(
-        width = 6, id = "tabcard", maximizable = T, closable = F,
+        width = 6, 
+        maximizable = T, closable = F,
         status = "success", side = "left", type = "tabs",
         tabPanel(
           title = "Summary",

diff --git a/R/mod_residuals_spats.R b/R/mod_residuals_spats.R
@@ -48,7 +48,8 @@ mod_residuals_spats_ui <- function(id) {
         column(
           width = 6,
           bs4TabCard(
-            width = 12, id = "tabcard", maximizable = T, solidHeader = FALSE, closable = F,
+            width = 12,
+            maximizable = T, solidHeader = FALSE, closable = F,
             status = "success", side = "left", type = "tabs",
             tabPanel(
               title = "QQplot",

diff --git a/R/mod_spats_single.R b/R/mod_spats_single.R
@@ -503,7 +503,7 @@ mod_spats_single_server <- function(input, output, session, data) {
   # Coefficients
   co.spats <- reactive({
     req(Modelo())
-    coef <- coef.SpATS(Modelo())
+    coef <- coef_SpATS(Modelo())
     coef
   })