Skip to content
GitLab
Menu
Projects
Groups
Snippets
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
ShinyApps
briskaRShinyApp
Commits
5c7d66f3
Commit
5c7d66f3
authored
Aug 26, 2020
by
Virgile Baudrot
Browse files
update description and typo
parent
f93d0bc0
Changes
4
Show whitespace changes
Inline
Side-by-side
DESCRIPTION
View file @
5c7d66f3
...
@@ -22,6 +22,6 @@ Imports:
...
@@ -22,6 +22,6 @@ Imports:
shinyWidgets,
shinyWidgets,
DT,
DT,
shinydashboardPlus
shinydashboardPlus
RoxygenNote: 7.
0.0
RoxygenNote: 7.
1.1
Suggests:
Suggests:
testthat (>= 2.1.0)
testthat (>= 2.1.0)
NAMESPACE
View file @
5c7d66f3
...
@@ -37,6 +37,7 @@ import(shinyWidgets)
...
@@ -37,6 +37,7 @@ import(shinyWidgets)
import(shinydashboard)
import(shinydashboard)
import(shinydashboardPlus)
import(shinydashboardPlus)
import(tidyr)
import(tidyr)
importFrom(config,get)
importFrom(golem,with_golem_options)
importFrom(golem,with_golem_options)
importFrom(sf,st_write)
importFrom(sf,st_write)
importFrom(shiny,NS)
importFrom(shiny,NS)
...
...
R/mod_tabItemDispersal.R
View file @
5c7d66f3
...
@@ -316,7 +316,7 @@ mod_tabItemDispersal_server <- function(input, output, session, r){
...
@@ -316,7 +316,7 @@ mod_tabItemDispersal_server <- function(input, output, session, r){
showModal
(
modalDialog
(
title
=
"Run in progress..."
,
showModal
(
modalDialog
(
title
=
"Run in progress..."
,
"It can take a long time"
,
"It can take a long time"
,
easyClose
=
TRUE
,
easyClose
=
TRUE
,
footer
=
"
blablabla
"
))
footer
=
"
...running...
"
))
if
(
input
$
checkEPSGdispersal
==
TRUE
){
if
(
input
$
checkEPSGdispersal
==
TRUE
){
landscapeSOURCE_dispersal
<-
sf
::
st_transform
(
r
$
landscapeSOURCE
,
crs
=
2154
)
landscapeSOURCE_dispersal
<-
sf
::
st_transform
(
r
$
landscapeSOURCE
,
crs
=
2154
)
...
...
R/mod_tabItemExposure.R
View file @
5c7d66f3
...
@@ -143,7 +143,7 @@ mod_tabItemExposure_server <- function(input, output, session, r){
...
@@ -143,7 +143,7 @@ mod_tabItemExposure_server <- function(input, output, session, r){
showModal
(
modalDialog
(
title
=
"Run in progress..."
,
showModal
(
modalDialog
(
title
=
"Run in progress..."
,
"It can take a long time"
,
"It can take a long time"
,
easyClose
=
TRUE
,
easyClose
=
TRUE
,
footer
=
"
blablabla
"
))
footer
=
"
...running...
"
))
exposureINDIVIDUAL
<-
brk_exposureMatch
(
stackRaster_exposure
=
r
$
stack_exposure
,
exposureINDIVIDUAL
<-
brk_exposureMatch
(
stackRaster_exposure
=
r
$
stack_exposure
,
sf
=
r
$
individualSITE_dev
,
sf
=
r
$
individualSITE_dev
,
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment